(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     88434,       1849]
NotebookOptionsPosition[     83491,       1758]
NotebookOutlinePosition[     83871,       1775]
CellTagsIndexPosition[     83828,       1772]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["PN\:7ed3\:5b9e\:9a8c\:62a5\:544a\:ff08\:8bd5\:9a8c\:573a\:ff09", "Title",
 CellChangeTimes->{{3.784950672926303*^9, 
  3.7849506889561634`*^9}},ExpressionUUID->"4ddec02e-8924-49fa-94d4-\
ddc7d8254bd3"],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"A", ",", "B"}], "]"}]], "Input",
 CellChangeTimes->{{3.7849525739122286`*^9, 3.7849525803614683`*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"95247572-4dae-43ac-b79a-71b72e271f7e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IF", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"1000", "*", 
     RowBox[{"10", "^", 
      RowBox[{"-", "9"}]}], "*", "i"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.78495072629709*^9, 3.784950764392188*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"5c4d7718-857d-4cc1-9aac-3cf9e90718de"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["1", "1000000"], ",", 
   FractionBox["1", "500000"], ",", 
   FractionBox["3", "1000000"], ",", 
   FractionBox["1", "250000"], ",", 
   FractionBox["1", "200000"], ",", 
   FractionBox["3", "500000"], ",", 
   FractionBox["7", "1000000"], ",", 
   FractionBox["1", "125000"], ",", 
   FractionBox["9", "1000000"], ",", 
   FractionBox["1", "100000"]}], "}"}]], "Output",
 CellChangeTimes->{3.7849507655556993`*^9, 3.784951708475702*^9, 
  3.785049978141164*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"a86f4bba-a61d-40e2-a5d1-80d0a18e287d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"VF", "=", 
  RowBox[{"{", 
   RowBox[{
   "0.477", ",", "0.495", ",", "0.505", ",", "0.512", ",", "0.518", ",", 
    "0.523", ",", "0.527", ",", "0.530", ",", "0.533", ",", "0.536"}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.7849507712347403`*^9, 3.7849508322488775`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"346c0d5e-58a5-45ee-9a7c-fd24fc33ff72"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.477`", ",", "0.495`", ",", "0.505`", ",", "0.512`", ",", "0.518`", ",", 
   "0.523`", ",", "0.527`", ",", "0.53`", ",", "0.533`", ",", "0.536`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.784950833295806*^9, 3.7849517120352983`*^9, 
  3.7850499819144144`*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"0e16b2b4-1062-4394-a9ff-7a2ec18ec14e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"IF", ",", "VF"}], "}"}], "]"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<\>\"", ",", "\"\<\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7849508389214983`*^9, 3.784950861988758*^9}, {
  3.785049936514365*^9, 
  3.785049956078965*^9}},ExpressionUUID->"ee94b2f2-9299-446d-8867-\
7567a91a3bbe"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{1.*^-6, 0.477}, {2.*^-6, 0.495}, {3.*^-6, 0.505}, {4.*^-6, 
      0.512}, {5.*^-6, 0.518}, {6.*^-6, 0.523}, {7.*^-6, 0.527}, {8.*^-6, 
      0.53}, {9.*^-6, 0.533}, {0.00001, 0.536}}]}, {}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0.47405},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 0.00001}, {0.477, 0.536}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.784950865814143*^9, 3.784953012081411*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"245a01de-aa29-4b21-95bb-0c0ef5310718"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"data", "=", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{"VF", ",", "IF"}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.784951076577157*^9, 3.784951083020485*^9}, {
  3.784951139272905*^9, 3.784951145459178*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"a92585ea-cd63-467e-8833-245ade4810a1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.477`", ",", 
     FractionBox["1", "1000000"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.495`", ",", 
     FractionBox["1", "500000"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.505`", ",", 
     FractionBox["3", "1000000"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.512`", ",", 
     FractionBox["1", "250000"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.518`", ",", 
     FractionBox["1", "200000"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.523`", ",", 
     FractionBox["3", "500000"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.527`", ",", 
     FractionBox["7", "1000000"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.53`", ",", 
     FractionBox["1", "125000"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.533`", ",", 
     FractionBox["9", "1000000"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.536`", ",", 
     FractionBox["1", "100000"]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.784951147597171*^9, 3.7849517171161995`*^9, 
  3.784953019289158*^9, 3.7850499851556063`*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"a9dd38ef-f7e2-4a88-b3b4-552779b3f9f0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindFit", "[", 
  RowBox[{"data", ",", 
   RowBox[{"A", "*", 
    RowBox[{"Exp", "[", 
     RowBox[{"B", "*", "x"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"A", ",", "B", ",", "k"}], "}"}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.784950917955803*^9, 3.784950920716841*^9}, {
  3.7849511638798923`*^9, 3.7849511651454577`*^9}, {3.7849512104226155`*^9, 
  3.7849512274561195`*^9}, {3.784952818695896*^9, 3.784952822173417*^9}, {
  3.7849529540534306`*^9, 3.7849529601941166`*^9}, {3.7849530784240255`*^9, 
  3.7849531242646627`*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"fd2ebc42-926e-47ea-a21a-30fd46a44331"],

Cell[BoxData[
 TemplateBox[{
  "FindFit","cvmit",
   "\"\:65e0\:6cd5\:5728 \\!\\(\\*RowBox[{\\\"100\\\"}]\\) \:6b21\:8fed\:4ee3\
\:4e2d\:6536\:655b\:5230\:8981\:6c42\:7684\:51c6\:786e\:5ea6\:6216\:8005\:7cbe\
\:5ea6.\"",2,33,18,27771537014787986502,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7849512291150217`*^9, 3.7849517211436973`*^9, 3.7849528232061234`*^9, {
   3.7849529551220255`*^9, 3.7849529613050165`*^9}, 3.7849530237654953`*^9, {
   3.784953080922166*^9, 3.7849531255820336`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[33]:=",ExpressionUUID->"8ca38172-38c8-4aaa-bd8b-\
e190fed14c3d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"A", "\[Rule]", "2.276157929265235`*^-11"}], ",", 
   RowBox[{"B", "\[Rule]", "23.927830500443008`"}], ",", 
   RowBox[{"k", "\[Rule]", "1.`"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7849512291249557`*^9, 3.784951721187387*^9, 3.7849528232484226`*^9, {
   3.7849529551696095`*^9, 3.784952961339588*^9}, 3.7849530237994866`*^9, {
   3.7849530809841*^9, 3.784953125619516*^9}},
 CellLabel->"Out[33]=",ExpressionUUID->"bdbfbb9f-6a33-4286-9add-d629ad05c196"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.784951674226143*^9, 
  3.784951675467157*^9}},ExpressionUUID->"8001c534-75d8-425a-8500-\
2b41631da32c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"a", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"Evaluate", "[", 
     RowBox[{
      RowBox[{"A", "*", 
       RowBox[{"Exp", "[", 
        RowBox[{"B", "*", "x"}], "]"}]}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"A", "\[Rule]", "2.276157929265235`*^-11"}], ",", 
        RowBox[{"B", "\[Rule]", "23.927830500443008`"}], ",", 
        RowBox[{"k", "\[Rule]", "1.`"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "0.607"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.784951396936062*^9, 3.7849514147567225`*^9}, {
  3.784951456708214*^9, 3.784951477022837*^9}, {3.7849516164787393`*^9, 
  3.7849516294864626`*^9}, {3.7849516724406385`*^9, 3.784951678593404*^9}, {
  3.784951750254325*^9, 3.7849517660234537`*^9}, {3.7849528341472583`*^9, 
  3.784952844051923*^9}, {3.784952969383853*^9, 3.784953001094239*^9}, {
  3.784953059110613*^9, 3.784953059388482*^9}, {3.7849531067969694`*^9, 
  3.784953146858668*^9}, {3.785050251649066*^9, 3.785050323442546*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"c7869a61-9e1a-41bd-9d54-4aa702b8f138"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVV3c4148TTxkZRUJJdik7pQjvOztSspIUISuEhFDKiCIU6WtGKJEZ2Xvv
8bG3D1JGQiSh/Pr9c/e8nufu9dxz47k7XjMHHYudO3bsoP8n/q8fhh4IJKLP
g8InUx4SdRFhK0ixyGZ1HMV7jbxt+YsIOVb/4glLafRX5X0pIF9EHHmmxtNg
qYZOKTHG2+5FxMF6we4iSwP0U2HMx8UiIuxmtEiupTXu3UlsHiYXE5dydAaz
LN0wPD8+48ZIKWFA50tMC7qjHGl14tqfUsLELDfh0II79n+RbPLkKiMcmVls
/O7ex53Pt6+fMi0jwpx6Nwy9HmLEG93rNjNlhC27yN5dF30wq0P+rtjfciJz
MFM80/Ip5gg4ZR97W0k8VEl/87DzKdr5pok2FFYSmh9T912SCcA4p9dnvdoq
ie9P364s7gnEXVy+D/BXJSEmHV0gkfcM636Pia1pVBEZ//lh3q7nOBf+ss1k
o4roE8w8ZtwZhpvGB1IO2NUQ5eMiJqpUL3Gr5udtwcc1RPKrtEgxmZd46cYS
zdXYGsKVIpV2O+klMn9WvsDcVkOwDSbNx98Lx5YPDSLL4rWE/tOorAmu/zCv
4lGU92Yt0fvlsZTF7SjkFY+0oEirJ9xWQyZb4qJwb36NvGxdPXF4Z1Twyc4o
vCgZe/fleD1hzpkxtX0yGmN1ZuziWRqIH7q9z6PXo/Hu/a8hgl4NBFPV0ZkO
31jMNTvGI2DUSJyPqY+UiY7HcL2trDrxZuJ7SqdSQks8HjNQzdmn2UyE5g99
p/kTj9se61Veds3EN+t7iXPib3AqcjOtMbWZkHz8bL0g7A3uWYs6SinQQlQX
577VMUhAlKE6qnm0lRg/RvnnyVQifs86wH5dvp2Q3/dGrWIzEdeVL0ykmbUT
iRuy4Wv7k5AQkgrn82snzNvuClsoJ6Giy7KNX3M7Mec0dVXxXRJG0SuVHr3S
QayWVedvWb5F2pM0F7ZkOwk6PW/HO3Pv0JyXSIiwIxF2BGdpys5ktNdxnTH0
IhFtAkU05EPJmDayI1oynES8+L0Up6mRjHfaBxKES0kEa7xJm3B6MopMhO4X
3tNF8Myh0Jfb77H51/0r/rldxGmvv1OGyymItWcu2zL3EIFFuvHx9Kn4OfNp
GJdwDzH2I8Xw89FUNFE4fHpJqYfwt9Al3TZMRQP5Hlx06SEGzqeUe9Wk4hOy
dIjJcA/hwaoTlfzqA5rZ3y+XSO8lyj+80/xxNh0tq2v73ln2E8yfN2il9NLx
C79X5x3ffsKSU6vuvn06pjPRy5i+6ScYX2zIUiWlI0fEKfq0oX7CxOWS4EGG
DPTGA26LWgPETvnfu2AsAwUSWKrNlAcJ1d4LRQE+WWj7QXNAWm2YcCv+mrEn
Jgvlakhvg6yGiQ/xPomhuVmoEqRgQ/lkmGC0KXwW9TkL77Jo+ZnUDxN22/uy
9PizkUf3blCH6gghGe7pbe6XjTFfSrczNEeJujI9gcfqH3GX0kpO/P1xwvhE
Ik/95Y8Yu8/bsD5+nFhPXDy02+wjnr22+JitdpwQehrIGOTxEbXE3jNFU5OJ
EJ3K9ZdpH3HuB+/YJy0yof9VuCVpTw4+ValIXZ0hE1+ZdjnWkHLwQ9GkqqbQ
JOEhLMrHMJ6DePMGzslPEgyqV3r0vuVgADfpWuKVSeLk/TTpL9S5uNw9EGTl
N0k8mNaloJXLxRzL5Uz1yUmCqfhtmGZyLoZy0XgHJUwR0jdV8wY9PqFzp8lJ
ZqlpotnT0Yrv6SeMo6JddteeJowio9ltX33CJn3B4J1204RP23fPraxPOKD6
luJewjTRKhWhyj39Cf0knEyX93whTBhm+s0v5aFEt0Wf1sIX4mlewMYifz6q
HZE3/VY/Q5gpVLzfOJGP46UCpSenZwi5tlU9KsjHdk0+1rhds8Ty5xtZhwzy
0eKkketn+VnCkOWMuUpQPk44H/spWTZLiNydbItezce6Na6IPWVzBOmEbIJK
XQGSu2K/fR/6RqSXOmpqdRWgScXg8om/3wh/teRNw/ECrM35TB/Hu0DImOzT
d/xdgFIrktob1gvE2+df6WJEC3Hyx8sflb8XCNfvL52XXhX+6x+1tTz+ReJQ
+rdzMZZF+GtWkca8bYmY2lMXWudUhJXfBHsDyEtEusPr4cWHRSgxdcClbmWJ
wFOaDsoRRXiXNjbk4aFlwrw467+FhiLcqvf/umG9TGQ0Ok2jYDHOrmcGnKT7
QchPr/t8ni9GwTsztvrGKwTtOVLr3vVivDYfMG7tvEJ0paSynaUsQUrCwCM8
cIWwsDP8EHy4BHnplCOlClaIwJUS0pmLJSgrsvNN9r5VoofiEU9AZglyQmzC
k5ZVwoqLqlz0Tin6BJb6xemuEULHiyuMH5ai4lRD5RmHNeKbhEPV82elODA7
zrYcuEY4qQzWLr8rRSyhLmutXiMe2GW05A2VIo2kQfQRyV9EWPHlQUK5DB/5
1b54wLlOlOonr148UI4Cw/OWuxk2iEcm19YeHinHnnNH686KbBCKNkzrWRLl
+HaX5kLYhQ2iwdNjc9+FcmR9eMOkLHiD6HqrubPPqxwtFT0V1vdtEl9/rDEa
z5Wj3PC2zEm+LYL5+Tlh+7IK9A176y1w8y9Rax/fVN5UgZZUm2OS/n8JV81f
Vox9FRj8+mmGbepfYnDP+7fZ3yvwYCnXVd2lv4SW6q7nvxkr0WKBvI/Ja5tg
qzPbLadQiVjq5/lJdwckVvNuViZVYmI4zWf3ZxRwP+fi+dnUSswxyr9bEE8B
eonuUfuyK3Hdb58RwycKoPIhSZmVVuKCY3rK1ggFWCt4O+/qrUQ2RQvODfGd
IF5JXlChrsL+Ap1PXkM7obQsntxsXYWnusIp/BQp4ayltmiPfRW2V9bZ21+l
hPy9uzxGnauQ5qxQ3R1HSsi6Ybl/yasKq0mfE+vjKCGRQlSVNaoKfeaajNO3
KOGJSnHajaYq9PK6KeJTRgU6bT2uq4LV6CtGN3pCjwbaXfxr/ohXY3rrfFuY
PQ1ocEkz0ZypxrcVXeHMATSg7BCTyq5YjYHs7cJ25TQgtc9sBAyrsUsgTfqZ
0G44fHlRISCwGv0JJu6I3bTwdYR2D9d8NT7xrBwgj9CByWBq3oflasy76B42
8IcOhnrVjaXWqzHLaLlqnYseWtsDsrSoavA1aUMt15QecippdXy5a5CGe9CZ
bZYeHr6ljZjRrcGEiI2Nqm0GYLGj5c0trUHznQ2veTQZIcQ6tQlranBClZM+
yJkRaCzUnVqbavBeEVu8QAwjbBgF1Ez31eAN9498czOMMH6J1vLgcg1+vCz8
yECJCT6cok3zPFqLFRzd+4qmmUBhc/dptZB/2GBLuIhghhyzjTTz8FrcXGxr
idFhBr7meT7v6Fpkale+/J8VM1BGtTMVJ9eidXVdWHcoMzSeCf8mXFGLwTEO
5Xe+MoOmE/dbxqVaFKKid74csR+uz57e369dh9L808t+dKzQpnUscOVKHTqk
T6m85mMFKDxIwWRch++bTop3yrACz5PN72o2dVh7T0Y+wJYVpo5UNRf71OH8
h2ODGu2sYGNywScutw6Dq7nVxaPYwK3fbNmCtR4XKz9sXlU5CF/CFGupDtej
50pntcfNg6CryRfxjq8e9UUolyq9D4JY3YTctHg9vlT3PFNefhCmc0yemp+v
x4tCfa+8ZdhBJ8SY++ajelRm+eNw+ewhEFYxvGgyW4/nX5x4HnT5METukOHZ
sVSP9QG7nxe6HQbqUvaV+LV6LNeolGKKPQyTJwcjx3c1oPznoetKU//seQw+
G3M1oI/kwEr5XU6g3Lp830i3ARnPchyTe80FYznaqYZlDVjC8Wh4OYAHlgQK
3IdrGrDUq1+KPY4HKGIOn7/e3IC9T2T5r+bwwBHfr3NG/Q1I07zNxT/MAza6
niKmyw1ILWr/e1KUF9ZWUrKsjjYiq2ucsOgAL+w9vSPfObgR7Y4fWmyW5wee
VAv/ny8bUU3vEKWCAT9IcLbou0b/wxeXsrod+EGP6r9f9943YoJI4pVL8fwQ
3St89n5VIzqt76tK2uYHAdcrpd4/G3HqC/kque4IEAWZ1SFGTZgkpF2QfksA
VP+zMI2/2YTiXJN4xFcANF0O78i+1YRTMmaFhbECYHIqkCC5NOF38tCWdKcA
PM6yKNwf0oRPtp67REsfg9b3hzMjy5uQQ35Hzt+9x+FaZGBUIncz0gZslcp3
C4L5PQXp3KPNKBDydSpySRDs9Nf7aoSbUZslyYx5rxA8ZLFkmZZqxvcvFLdv
qQtB4guF58e0mjEb/l0tVUIw93T9cbpXMybxoG1hoTC4u1s65k80Y2/SRcq+
KlF4mE5ve36mGUMXlykefxGFx+PZFmPfm1Fc9O/pG/Ri8EJl05B6qxk9+B7x
xF0Wg+R9L1T02Vpw7ceL48rfxKAntejQ2vkWzA4+FSOx7wSIDTHUnf7Ughm8
ql31VyVAck9ORVNxC84yHvgi6CABMvJXio2qWlBmNFX//WMJUElOyPJrb0FK
VunO5SwJuO50Jrp3pgXZB4tKG2lOQgCdiYMLZyturfpXxJSehM8yuex5/q3I
c+LPiSZZSZgYSJ0cCPqHJwPfMOpKwpjrm7StsFaUN5Htc7SRhIGcYEI5vhUZ
DhsyPo6ShDYha9Puglbk25HBvbwuCfmHOFOXZ/7x0+y3pig7DU83/KXFNNow
MMg4e9xQCvwiPSl0tNswTKnrcpmLFPiccW52udKG9nWtk0UvpOCBk+n1sptt
+MswR4GpQQruzMl6XXjQhrefVu04c1oaDIeWGmwy2nCvW4mb34GzIFJseOU9
Yzu29ehXyv2UAYF0fKDJ1o6KOUMPBthkgSfuSMLPw+3YdTaaO05aFlh8vs8p
CbWjUNXfmfcPZGFT3echWbkdZVMYdUqo5aB5MPUdu0c7SuX8DmLiJ8D69/rK
s8/teMCH68SmJ4LZ/OjBU/PtmF3hTwnvEK6PVhNDy+1YxSzf8rEVQasq6Mnx
7XZk3toVxrZXHqQCeDjq2DvQckRwotRYHqjZ1RT/anag2I2F3k5KBUiSjnjh
WNSBS9lKZzbMFUF+iiJ3vaIDTyfnFnneV4SxYLter/oOPNZ9peVwmCIcmlI4
FNrdgY39F3kyKxThRfC3pI8LHchi6KHBe1gJcPnNtd9MnXgz9DKV9ZASiKqu
2cuodGKlxE+y020VeBAj7PVQrRMjbthXpD9RgeYlk9BqjU582qJeQJ2oAtYx
LbnndTrx/IDnC45+FXi79Gbd8EYnxnU0ybcpqgJHjIbPffdObFww/32X5xzQ
Lr15VZrRiRShZcKrP9WgZ+NvcGN2Jx55YCF6l1kd4qiM/HtyO3F67EIBs7g6
SHKw3/tW1ImnG1+u51qrg7FqqMHh+k7su26l4TuqDjmx3hwPxjr/5Y/ppWvb
ebiubpYgy0j6999lt9U0XAABvcqoc8wkTN/pzBk/cwGWjbnCdFlJ+JRuYjGe
9iL4Ow/52HKQ8D2PZCPzhYvwMV7HPOYYCUUKximquy4C9ZrisU0koRRHM+vt
r5qQlcifUexIwkP/nWeOjtD6tw/cdHc7k3A463jckXQtkGdo/335HgmTTvNE
NlZqQZeLm+qyJwmZox31jOa0YE2tbfzYMxJaB5XcKgNtgEVX5lfvSKgbl2Tm
/E0b2mWb7zkMkTDmFFV3ynVdiHDk5iobJaF/eZV4grMumLxzrqWbIOHKit7Z
giBd+LGXe1/yVxJue/F8kSvTBbbJux9GVkkodOtUfg63Hhg/5RxVZ+xCTYOO
c7fm9GChx1HxiHIXmqtcKmWJ1IeTFd87zp7rQrUJOyOJHH1wTbUzunS+C2fb
FoTtWvVhx0NrNw+tLqR/Xz0iR3EFmI+ZZHZe78Ij9KesNe2ugLT7pUOeLl0Y
Jt7mpa1mAL6cYj96k7vw0MMeqeGDhtBIk/5oPrULdXaMAqWUITD8ENxDkdGF
u2ToebUuG8J/9UePi+R2YeEhwYPaYYaQ4sBp7FPRhWXX+5W39lyD9iqGZrGB
LuT9zdzBwXAd2C3nE57QdiOHUIBp2hFjyBYRyQxm6MY3BoW/SarGoLpiV/yS
sRt5x0iK3LeMwdnre1c8azcSKRcixDKNoT16eVchbzdiDQ3vUZkb8Ljjl8XM
2W60orYMbhUxge/SlELqNt14xr779PI1U3i8rXzm0u1u5Nx6tR7jYAoc9X6K
lx27cd7QfZeRrymo6dJcM3XtRsqDRfp8aaaQdJsuyN2nGxn5dpWVbpqCQSLT
99TobuxmDpU6l2AG1fScOXQt3cij6fTI/u9NuLKlZ6fT3o16mu+Tdx4wh2/f
ggSiSd3o5zhJmSduDmztW9GCA904RxLedDY1B5sXI75q091IY3x1zqLeHJhZ
Yy/7b3fjSem7qqL/WYAZF8dvCskeLCA8rK00reDXXt1cdakevJCzc2uPrRUE
bQfeDpXpQTeW3Y39T6wgn7wxwaPQg8snFvN7q6yALmmoGTV78FRuStEjKWvI
ORYd62ndg7VzrVq5grdgpwS7/O/YHqRgLBMfEbKF/f3uE7vf9KCWhoIz1Xlb
OOI55HMwqQdFiQpXnVu2oNIUUyeV2oMzEd1XDVJs4akpl4ZrXg8Wvp3kPnjc
DvaG8euvtPXg/NSvx0Fit+HQiqjdwt8efB+ZGOlu4ADCUSF7/lD04sA9isLb
DxxADhczGah60X3oOcuzNw5g9Cx7WZi+F40ZkhUVZx3gDf+pezYHenGaW61P
Fxz/zb+0z1fxXtS4V/26tNcRJPIUIydMevHKg/EnGqxOIO8X/fWkee+/JbDt
0SDsBFqXf5x5bNWLaYvfzG4oOoH9z4ReAfteLJK0ip1ycIIPpyn2293vxYX1
9mCFVifgy68IXnvVi9xrE8VOgXeBpUDOl76lF5VH37FkcroA/5Pwruvtvfip
5LTxopQLnLzyjTeT1IshMHRBW8cFtH7FVGoN9OLB6MWSe09cIFhq88+r6V7M
8FYz1l1xAerCIjeeHX34hve1sg3JFX4VnrE/fboPLew0dqqmuIGBhbbcPek+
tHw0M2Nc7wbF++zoimT70MBYIyj2sxs8sElIllPsQ+nvv0r9ed1hx2GGcaVL
fcgvSVfC8doddj+auKRzqw8VgiDQMcYDDqoESTi87sNLPOcUWfIfgPty8nb2
mz6UYU1e4B58AEOvq9p+JPXh7WpaE/2tBxC7tnbL9UMfUstu2igreQJPimmi
Z0EfToVcGBfq9gRBeqn9QaQ+/BssqaK1+RBkSBOrKVT9SP7i46BQ4AUHTh39
kLO7H0fGNCLUmr1gNdz6Ril9P8IwhbXFqBdkGCw2dezrx1SfJUvyLm/gIW/F
rXH2o1T6kfAxbW+gXjygrnymH9Ofcvbs++ENXQyar8ct+/Fwn94pemVfyLIP
1Zm91Y9915odfl/1haDOHpoVu34cyKFN2uHoCyrh15yo7/Zjj/jHG4axvlDI
ceuc6KN+DLXTvAxrvhAn9HjZI6Ifv7hByUTmY7BVK1Zha+zH5OLE7FuS/qDa
s5pi2tKP32wyjvRc8gc+E3GGjPZ+dHQ472Ri6w8D9952KfX2oz5NrMJ4oj8o
vw+5cWeyH48dibrksf8JcFHfdG/d6sf48oQ2jc0n0FlDn+EjMYCeR2Yiwr8E
QNolVaZ2yQE0ti1Tek4dCP7DXnfZpQfwqbq/7UeBQJBb+Xk2GwZQ0VP8h51V
IKTyketHNQaQK6EG6+cCwcf7E1nacgCb/F7Xiv5+BpJoxLIYPYAJJSZ5cmdC
4JlXpfHOuAGci//Pec/VEJis4k9lTRjA8IoEHeoHIfBCeY6Qez+AMlbXj9yp
DoF59XtWAbkDaGfBLnNC+zkk6oUW87cOYL2fyjjIvgAmmzoTgz8DKP+rbm+/
YyhYpR1Ps90xiLHDHLJLj0Oh/Nuznw93DaLo/OsXPFGhYOegE/iOdhBN+2n4
GqpCocF5PPcH6yD+OmRMEmMJg4ePflMHiw3iGM05E6+yMJgPF82oujGIdeyz
rT/4wiE8R9e1zmwQN1gv/fl4NhzkOt2xyWIQFX9XjwdqhUMIfT2p03YQua4w
iQc+DIeTPsZr4/cG8e73gyLVw+Hg5vAc/z4fxOIKqU8SMa+A8vwySaZyECPZ
W1O/iEVAhtWBGKgZxDUq8Vk29QjQ9yPMFesHUURqusz8ZgS8rwxYU2/952/F
mXE1MgLOS/FxXB0YxAtG9brpuyIh9Iiu+b2lQaz/5dzITI4Eru1Pa7k8Q9hv
Kxc3kh0Ndapdt3/zD2HK5z8pr0jRYBey+BmODaFMyjLJ9Uc0lHAKdTeJDuEY
9y2lHMkYMJCLzxqXGUI++RSW/SUxEOoeYE1/eQgf97UUp3TEAuWq0ZBZwBC+
GXpm/ZI9HtJk72unBA3h7ZId+AnjQcc3snHh+RCy7xfr2WUZD2+Yu/Pd/hvC
55OSPCdy44GQUHsZkjSErW33myeOvQFX+5MXisuGMEzRoJ6y6Q3MzlCX7/sx
hCaXM4eMuRKB4cuFw9w/h3CvTVzugVOJIDYV5iGyPoS3iHc4cy4RnEe5pM79
HcLqZ96jnXcSYUfXmewHdMM447JHvKY+EQ6WWCZ+5RtGvvkRP2WXJFANrvcv
0x3G2JG8EN/pt3ArkGG6WX8YHb6wldz68xaCnugoDVwdxmvBFXK2rO+gy3ts
+8eNYRxXZCurVHkHRq5rbsfthlH7ysbRovfvwPmGgO3Lx8MYaS72cdMxGZIk
/C/dyhvGbGcFnmz2FKg1qLlWWDiMymtaE2FSKfDl0Q5rmtJh5OYp/Rh9OQWO
t3t4vaseRov2j9KHwlIg08bh40THMOYdXl8ZZUiFwiSD/YZzw3jgTK5fAu0H
aGUV7j/PPYJ1pOYQR950WJCznoriG0Fb5bwyHeV02Gv+bnHm6AiyuDwTM7FK
B+0c7t1PREZwZ2Z7+p+MdOjTZDlbc3YEbywcpFMnMoD85E+0rN4IMntVRmmb
Z8Lq7w5jkYARJNGq3B+1yYbQvtM6SkEj+PHdab1xz2wQy41RMXw+gt0lz8V+
vcgGazsrkaevRlCF0f/irYJsGBn7+3sq4R/fay4qQ6qPUFsj+iqmeATXRMsU
H7/7COHBz1rovo1gkf1oUNGvHJCwWS7nXRzBTAMRyNqTC+2qV3Kkf/yLX379
Wjl/LuzewR9luT6C883TOoJauf/+sWLLaspRHDqabn/6Qy6YX5ml8OAcRfu3
D3vkb34CSd5z0rOao8jEb2G6PZsH/EMOH5a0R3F5yKB4bGc+ML+MPLyuN4pT
nITmEEc+LFHO7aC5Nooey0ffC2jmQ/pMUNMRq1EM5H79/sCnfODP7jI0eTSK
dK/6Mu75FQAzGnv2Z40ilf37VU4sAop1/8WxnH9Yezui7loRLGVnmX7JG0Ue
lfNVwW5F0M5HofqzZBQJtmdnvXKKIJD67d79jaPY/zelZ/lYMVC0z8Zrkkfx
ne4c+Th7CSxdd6muYxrDO3eqM9ZZy2AUX03uZRlDDsnPpk1ny6CZL2+nwYEx
/FxIe6LeqAzezawqznGO4WHz4RXl5DIwdHau2Ss8hhfupx0yOlsOdc/u1l5R
GcMJe5e249YVEF18p37WfQx/PlYsmVithCevQ7+c9BxDVyn5pWraqn/37Efq
B15j6Peaf7iMqwouqS6r7n0yhmWGFtoU6lVA2eXYcDJ8DCnY5rE6rgrsZx0a
72eOYaG6TIrapWpQOmjfvGdqDMfvRx/Tq6uB9Ox8EteXMTSI4p2lH6kBNvXt
AfHZMXTz16gb/VEDM+4vvmovjuHxU+9UOnlqIWg4h/K/zTG8p9+Zv+JZCz1x
v4CLZRydtdS0LxF1YH7UO1dMZRz/ui56SZPqoa2sqRjVxtGLz87Scb4ezugz
V2tpjOONfUp29VQNsPtJUqeT9ji+kIu/2SbT8K++dQv5RuOY+Vmo53xyA6ym
0R1H13H8/tVkiM+3EfxOhsdeej+Ol5QOraldboZvq93aiR/GUX4/uZTFtRn0
CvbT/Mz4xz+7fo02ohn45F7eif40jpcNR7/fHmyGSpUw1emqcYzQdaIRMmmB
LYMXSx4j4xjDRzEQ49IKRajK172bjPupbitNVrXDN54vDx7QkVFrd3fMiZl2
4Nnp33+UgYzDqZqpmXs74GltXZAbIxkXGz1IMtc7QF9d5RcnGxmJ1//NRP3u
gFUd5VZrfjIuzUdc74nrBHFLRde/BBknJcoCzdZIEJSnxPQGyUi+VjVqwNAF
M5QqHxQUyDjPQ0dvw9cFiUnnxh4rk1Hn5fS9Uc0uYJm4oEqvQUa8vynLkNoF
G9eusB00IONMbdWfZLNuqNW2y5dwIuMRgaLn9fM9wJtwW6v7LhlFT91aMKTq
hYdL9nPOLmTkpHsdupe7F6Se3+EqdCPjScVPqj06vfCh1dUfHpGRjvz59WhJ
Lzw/562vEUTGStKqPV14HxgS/62ZJ5OxXHXqyJzRADh/FX48956MzVUxabnu
A/A8tGqfYyoZp2VNJmNfDUDt9DeR++lkzL5QtdTeNgBiIUo3Q3PIeDV3LCQP
B2Hn+FJHWTkZ04p4z2cIDkGal0YqWz8Z1S/039Q9MAL1QhNnYgfIWDcvcfy6
1AiQe1xreYfIGPvhrnPAlRFgE0wcFxklo5D/Qw2dyBHwIq2zKk2RMXl2PDiB
YxT0+JJ9HBbJuMbP1nNNcAy2anZcb6SZQOKaX4iMBBnYdoVV2tNOYJYuiUNB
hQwnFPmPstJPYH7lxdsmV8lws1Llu+neCdyy9Omf9SZDc2mg1ybLBHI86hcW
7iFDZB7LOzG+CVwsWLDx9ZyACSJOnE1sAheO4vx17kn4H3X22f0=
       "]]},
     Annotation[#, "Charting`Private`Tag$50090#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 0.607}, {0., 8.641486921495483*^-6}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7849517605385075`*^9, 3.7849517669160614`*^9}, 
   3.784952848836869*^9, 3.7849529232335277`*^9, 3.7849529716193933`*^9, 
   3.784953002705945*^9, {3.784953041140441*^9, 3.7849530648577595`*^9}, 
   3.7849531145023136`*^9, 3.7849531481312237`*^9, {3.7850502554165497`*^9, 
   3.7850503244674425`*^9}},
 CellLabel->"Out[21]=",ExpressionUUID->"18862dd6-2d22-4a8f-adbd-6a554cb569aa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"b", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"data", ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\!\(\*SubscriptBox[\(V\), \(F\)]\)/V\>\"", ",", 
       "\"\<\!\(\*SubscriptBox[\(I\), \(F\)]\)/nA\>\""}], "}"}]}], ",", 
    RowBox[{"PlotLabel", "\[Rule]", 
     RowBox[{"{", "\"\<\:4f0f\:5b89\:7279\:6027\:70b9\:56fe\>\"", "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.784951651221472*^9, 3.784951654939599*^9}, {
  3.784951694103997*^9, 3.7849516951284275`*^9}, {3.7849517702886896`*^9, 
  3.784951780757716*^9}, {3.785049996256587*^9, 3.785050064927351*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"574cbff6-0270-4268-bccf-82a520f0965a"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], PointBox[{{0.477, 1.*^-6}, {0.495, 2.*^-6}, {0.505, 3.*^-6}, {
      0.512, 4.*^-6}, {0.518, 5.*^-6}, {0.523, 6.*^-6}, {0.527, 7.*^-6}, {
      0.53, 8.*^-6}, {0.533, 9.*^-6}, {0.536, 
      0.00001}}]}, {}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(V\\), \\(F\\)]\\)/V\"", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(I\\), \\(F\\)]\\)/nA\"", TraditionalForm]},
  AxesOrigin->{0.476078125, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox[
    RowBox[{"{", "\"\:4f0f\:5b89\:7279\:6027\:70b9\:56fe\"", "}"}], 
    TraditionalForm],
  PlotRange->{{0.477, 0.536}, {0, 0.00001}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.784951655701835*^9, 3.7849516962906036`*^9, 3.7849517277592564`*^9, 
   3.7849517817412443`*^9, 3.785049993506167*^9, {3.7850500331006927`*^9, 
   3.7850500663892756`*^9}},
 CellLabel->"Out[11]=",ExpressionUUID->"ee17cab8-0712-4be2-b8d2-ad782ee2ed7b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"a", ",", "b"}], "]"}]], "Input",
 CellChangeTimes->{{3.784951730500406*^9, 3.7849517355827217`*^9}, {
  3.785050334331792*^9, 
  3.7850503552863803`*^9}},ExpressionUUID->"11868ebe-8779-486b-a725-\
27e8a7360767"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVV3c4148TTxkZRUJJdik7pQjvOztSspIUISuEhFDKiCIU6WtGKJEZ2Xvv
8bG3D1JGQiSh/Pr9c/e8nufu9dxz47k7XjMHHYudO3bsoP8n/q8fhh4IJKLP
g8InUx4SdRFhK0ixyGZ1HMV7jbxt+YsIOVb/4glLafRX5X0pIF9EHHmmxtNg
qYZOKTHG2+5FxMF6we4iSwP0U2HMx8UiIuxmtEiupTXu3UlsHiYXE5dydAaz
LN0wPD8+48ZIKWFA50tMC7qjHGl14tqfUsLELDfh0II79n+RbPLkKiMcmVls
/O7ex53Pt6+fMi0jwpx6Nwy9HmLEG93rNjNlhC27yN5dF30wq0P+rtjfciJz
MFM80/Ip5gg4ZR97W0k8VEl/87DzKdr5pok2FFYSmh9T912SCcA4p9dnvdoq
ie9P364s7gnEXVy+D/BXJSEmHV0gkfcM636Pia1pVBEZ//lh3q7nOBf+ss1k
o4roE8w8ZtwZhpvGB1IO2NUQ5eMiJqpUL3Gr5udtwcc1RPKrtEgxmZd46cYS
zdXYGsKVIpV2O+klMn9WvsDcVkOwDSbNx98Lx5YPDSLL4rWE/tOorAmu/zCv
4lGU92Yt0fvlsZTF7SjkFY+0oEirJ9xWQyZb4qJwb36NvGxdPXF4Z1Twyc4o
vCgZe/fleD1hzpkxtX0yGmN1ZuziWRqIH7q9z6PXo/Hu/a8hgl4NBFPV0ZkO
31jMNTvGI2DUSJyPqY+UiY7HcL2trDrxZuJ7SqdSQks8HjNQzdmn2UyE5g99
p/kTj9se61Veds3EN+t7iXPib3AqcjOtMbWZkHz8bL0g7A3uWYs6SinQQlQX
577VMUhAlKE6qnm0lRg/RvnnyVQifs86wH5dvp2Q3/dGrWIzEdeVL0ykmbUT
iRuy4Wv7k5AQkgrn82snzNvuClsoJ6Giy7KNX3M7Mec0dVXxXRJG0SuVHr3S
QayWVedvWb5F2pM0F7ZkOwk6PW/HO3Pv0JyXSIiwIxF2BGdpys5ktNdxnTH0
IhFtAkU05EPJmDayI1oynES8+L0Up6mRjHfaBxKES0kEa7xJm3B6MopMhO4X
3tNF8Myh0Jfb77H51/0r/rldxGmvv1OGyymItWcu2zL3EIFFuvHx9Kn4OfNp
GJdwDzH2I8Xw89FUNFE4fHpJqYfwt9Al3TZMRQP5Hlx06SEGzqeUe9Wk4hOy
dIjJcA/hwaoTlfzqA5rZ3y+XSO8lyj+80/xxNh0tq2v73ln2E8yfN2il9NLx
C79X5x3ffsKSU6vuvn06pjPRy5i+6ScYX2zIUiWlI0fEKfq0oX7CxOWS4EGG
DPTGA26LWgPETvnfu2AsAwUSWKrNlAcJ1d4LRQE+WWj7QXNAWm2YcCv+mrEn
Jgvlakhvg6yGiQ/xPomhuVmoEqRgQ/lkmGC0KXwW9TkL77Jo+ZnUDxN22/uy
9PizkUf3blCH6gghGe7pbe6XjTFfSrczNEeJujI9gcfqH3GX0kpO/P1xwvhE
Ik/95Y8Yu8/bsD5+nFhPXDy02+wjnr22+JitdpwQehrIGOTxEbXE3jNFU5OJ
EJ3K9ZdpH3HuB+/YJy0yof9VuCVpTw4+ValIXZ0hE1+ZdjnWkHLwQ9GkqqbQ
JOEhLMrHMJ6DePMGzslPEgyqV3r0vuVgADfpWuKVSeLk/TTpL9S5uNw9EGTl
N0k8mNaloJXLxRzL5Uz1yUmCqfhtmGZyLoZy0XgHJUwR0jdV8wY9PqFzp8lJ
ZqlpotnT0Yrv6SeMo6JddteeJowio9ltX33CJn3B4J1204RP23fPraxPOKD6
luJewjTRKhWhyj39Cf0knEyX93whTBhm+s0v5aFEt0Wf1sIX4mlewMYifz6q
HZE3/VY/Q5gpVLzfOJGP46UCpSenZwi5tlU9KsjHdk0+1rhds8Ty5xtZhwzy
0eKkketn+VnCkOWMuUpQPk44H/spWTZLiNydbItezce6Na6IPWVzBOmEbIJK
XQGSu2K/fR/6RqSXOmpqdRWgScXg8om/3wh/teRNw/ECrM35TB/Hu0DImOzT
d/xdgFIrktob1gvE2+df6WJEC3Hyx8sflb8XCNfvL52XXhX+6x+1tTz+ReJQ
+rdzMZZF+GtWkca8bYmY2lMXWudUhJXfBHsDyEtEusPr4cWHRSgxdcClbmWJ
wFOaDsoRRXiXNjbk4aFlwrw467+FhiLcqvf/umG9TGQ0Ok2jYDHOrmcGnKT7
QchPr/t8ni9GwTsztvrGKwTtOVLr3vVivDYfMG7tvEJ0paSynaUsQUrCwCM8
cIWwsDP8EHy4BHnplCOlClaIwJUS0pmLJSgrsvNN9r5VoofiEU9AZglyQmzC
k5ZVwoqLqlz0Tin6BJb6xemuEULHiyuMH5ai4lRD5RmHNeKbhEPV82elODA7
zrYcuEY4qQzWLr8rRSyhLmutXiMe2GW05A2VIo2kQfQRyV9EWPHlQUK5DB/5
1b54wLlOlOonr148UI4Cw/OWuxk2iEcm19YeHinHnnNH686KbBCKNkzrWRLl
+HaX5kLYhQ2iwdNjc9+FcmR9eMOkLHiD6HqrubPPqxwtFT0V1vdtEl9/rDEa
z5Wj3PC2zEm+LYL5+Tlh+7IK9A176y1w8y9Rax/fVN5UgZZUm2OS/n8JV81f
Vox9FRj8+mmGbepfYnDP+7fZ3yvwYCnXVd2lv4SW6q7nvxkr0WKBvI/Ja5tg
qzPbLadQiVjq5/lJdwckVvNuViZVYmI4zWf3ZxRwP+fi+dnUSswxyr9bEE8B
eonuUfuyK3Hdb58RwycKoPIhSZmVVuKCY3rK1ggFWCt4O+/qrUQ2RQvODfGd
IF5JXlChrsL+Ap1PXkM7obQsntxsXYWnusIp/BQp4ayltmiPfRW2V9bZ21+l
hPy9uzxGnauQ5qxQ3R1HSsi6Ybl/yasKq0mfE+vjKCGRQlSVNaoKfeaajNO3
KOGJSnHajaYq9PK6KeJTRgU6bT2uq4LV6CtGN3pCjwbaXfxr/ohXY3rrfFuY
PQ1ocEkz0ZypxrcVXeHMATSg7BCTyq5YjYHs7cJ25TQgtc9sBAyrsUsgTfqZ
0G44fHlRISCwGv0JJu6I3bTwdYR2D9d8NT7xrBwgj9CByWBq3oflasy76B42
8IcOhnrVjaXWqzHLaLlqnYseWtsDsrSoavA1aUMt15QecippdXy5a5CGe9CZ
bZYeHr6ljZjRrcGEiI2Nqm0GYLGj5c0trUHznQ2veTQZIcQ6tQlranBClZM+
yJkRaCzUnVqbavBeEVu8QAwjbBgF1Ez31eAN9498czOMMH6J1vLgcg1+vCz8
yECJCT6cok3zPFqLFRzd+4qmmUBhc/dptZB/2GBLuIhghhyzjTTz8FrcXGxr
idFhBr7meT7v6Fpkale+/J8VM1BGtTMVJ9eidXVdWHcoMzSeCf8mXFGLwTEO
5Xe+MoOmE/dbxqVaFKKid74csR+uz57e369dh9L808t+dKzQpnUscOVKHTqk
T6m85mMFKDxIwWRch++bTop3yrACz5PN72o2dVh7T0Y+wJYVpo5UNRf71OH8
h2ODGu2sYGNywScutw6Dq7nVxaPYwK3fbNmCtR4XKz9sXlU5CF/CFGupDtej
50pntcfNg6CryRfxjq8e9UUolyq9D4JY3YTctHg9vlT3PFNefhCmc0yemp+v
x4tCfa+8ZdhBJ8SY++ajelRm+eNw+ewhEFYxvGgyW4/nX5x4HnT5METukOHZ
sVSP9QG7nxe6HQbqUvaV+LV6LNeolGKKPQyTJwcjx3c1oPznoetKU//seQw+
G3M1oI/kwEr5XU6g3Lp830i3ARnPchyTe80FYznaqYZlDVjC8Wh4OYAHlgQK
3IdrGrDUq1+KPY4HKGIOn7/e3IC9T2T5r+bwwBHfr3NG/Q1I07zNxT/MAza6
niKmyw1ILWr/e1KUF9ZWUrKsjjYiq2ucsOgAL+w9vSPfObgR7Y4fWmyW5wee
VAv/ny8bUU3vEKWCAT9IcLbou0b/wxeXsrod+EGP6r9f9943YoJI4pVL8fwQ
3St89n5VIzqt76tK2uYHAdcrpd4/G3HqC/kque4IEAWZ1SFGTZgkpF2QfksA
VP+zMI2/2YTiXJN4xFcANF0O78i+1YRTMmaFhbECYHIqkCC5NOF38tCWdKcA
PM6yKNwf0oRPtp67REsfg9b3hzMjy5uQQ35Hzt+9x+FaZGBUIncz0gZslcp3
C4L5PQXp3KPNKBDydSpySRDs9Nf7aoSbUZslyYx5rxA8ZLFkmZZqxvcvFLdv
qQtB4guF58e0mjEb/l0tVUIw93T9cbpXMybxoG1hoTC4u1s65k80Y2/SRcq+
KlF4mE5ve36mGUMXlykefxGFx+PZFmPfm1Fc9O/pG/Ri8EJl05B6qxk9+B7x
xF0Wg+R9L1T02Vpw7ceL48rfxKAntejQ2vkWzA4+FSOx7wSIDTHUnf7Ughm8
ql31VyVAck9ORVNxC84yHvgi6CABMvJXio2qWlBmNFX//WMJUElOyPJrb0FK
VunO5SwJuO50Jrp3pgXZB4tKG2lOQgCdiYMLZyturfpXxJSehM8yuex5/q3I
c+LPiSZZSZgYSJ0cCPqHJwPfMOpKwpjrm7StsFaUN5Htc7SRhIGcYEI5vhUZ
DhsyPo6ShDYha9Puglbk25HBvbwuCfmHOFOXZ/7x0+y3pig7DU83/KXFNNow
MMg4e9xQCvwiPSl0tNswTKnrcpmLFPiccW52udKG9nWtk0UvpOCBk+n1sptt
+MswR4GpQQruzMl6XXjQhrefVu04c1oaDIeWGmwy2nCvW4mb34GzIFJseOU9
Yzu29ehXyv2UAYF0fKDJ1o6KOUMPBthkgSfuSMLPw+3YdTaaO05aFlh8vs8p
CbWjUNXfmfcPZGFT3echWbkdZVMYdUqo5aB5MPUdu0c7SuX8DmLiJ8D69/rK
s8/teMCH68SmJ4LZ/OjBU/PtmF3hTwnvEK6PVhNDy+1YxSzf8rEVQasq6Mnx
7XZk3toVxrZXHqQCeDjq2DvQckRwotRYHqjZ1RT/anag2I2F3k5KBUiSjnjh
WNSBS9lKZzbMFUF+iiJ3vaIDTyfnFnneV4SxYLter/oOPNZ9peVwmCIcmlI4
FNrdgY39F3kyKxThRfC3pI8LHchi6KHBe1gJcPnNtd9MnXgz9DKV9ZASiKqu
2cuodGKlxE+y020VeBAj7PVQrRMjbthXpD9RgeYlk9BqjU582qJeQJ2oAtYx
LbnndTrx/IDnC45+FXi79Gbd8EYnxnU0ybcpqgJHjIbPffdObFww/32X5xzQ
Lr15VZrRiRShZcKrP9WgZ+NvcGN2Jx55YCF6l1kd4qiM/HtyO3F67EIBs7g6
SHKw3/tW1ImnG1+u51qrg7FqqMHh+k7su26l4TuqDjmx3hwPxjr/5Y/ppWvb
ebiubpYgy0j6999lt9U0XAABvcqoc8wkTN/pzBk/cwGWjbnCdFlJ+JRuYjGe
9iL4Ow/52HKQ8D2PZCPzhYvwMV7HPOYYCUUKximquy4C9ZrisU0koRRHM+vt
r5qQlcifUexIwkP/nWeOjtD6tw/cdHc7k3A463jckXQtkGdo/335HgmTTvNE
NlZqQZeLm+qyJwmZox31jOa0YE2tbfzYMxJaB5XcKgNtgEVX5lfvSKgbl2Tm
/E0b2mWb7zkMkTDmFFV3ynVdiHDk5iobJaF/eZV4grMumLxzrqWbIOHKit7Z
giBd+LGXe1/yVxJue/F8kSvTBbbJux9GVkkodOtUfg63Hhg/5RxVZ+xCTYOO
c7fm9GChx1HxiHIXmqtcKmWJ1IeTFd87zp7rQrUJOyOJHH1wTbUzunS+C2fb
FoTtWvVhx0NrNw+tLqR/Xz0iR3EFmI+ZZHZe78Ij9KesNe2ugLT7pUOeLl0Y
Jt7mpa1mAL6cYj96k7vw0MMeqeGDhtBIk/5oPrULdXaMAqWUITD8ENxDkdGF
u2ToebUuG8J/9UePi+R2YeEhwYPaYYaQ4sBp7FPRhWXX+5W39lyD9iqGZrGB
LuT9zdzBwXAd2C3nE57QdiOHUIBp2hFjyBYRyQxm6MY3BoW/SarGoLpiV/yS
sRt5x0iK3LeMwdnre1c8azcSKRcixDKNoT16eVchbzdiDQ3vUZkb8Ljjl8XM
2W60orYMbhUxge/SlELqNt14xr779PI1U3i8rXzm0u1u5Nx6tR7jYAoc9X6K
lx27cd7QfZeRrymo6dJcM3XtRsqDRfp8aaaQdJsuyN2nGxn5dpWVbpqCQSLT
99TobuxmDpU6l2AG1fScOXQt3cij6fTI/u9NuLKlZ6fT3o16mu+Tdx4wh2/f
ggSiSd3o5zhJmSduDmztW9GCA904RxLedDY1B5sXI75q091IY3x1zqLeHJhZ
Yy/7b3fjSem7qqL/WYAZF8dvCskeLCA8rK00reDXXt1cdakevJCzc2uPrRUE
bQfeDpXpQTeW3Y39T6wgn7wxwaPQg8snFvN7q6yALmmoGTV78FRuStEjKWvI
ORYd62ndg7VzrVq5grdgpwS7/O/YHqRgLBMfEbKF/f3uE7vf9KCWhoIz1Xlb
OOI55HMwqQdFiQpXnVu2oNIUUyeV2oMzEd1XDVJs4akpl4ZrXg8Wvp3kPnjc
DvaG8euvtPXg/NSvx0Fit+HQiqjdwt8efB+ZGOlu4ADCUSF7/lD04sA9isLb
DxxADhczGah60X3oOcuzNw5g9Cx7WZi+F40ZkhUVZx3gDf+pezYHenGaW61P
Fxz/zb+0z1fxXtS4V/26tNcRJPIUIydMevHKg/EnGqxOIO8X/fWkee+/JbDt
0SDsBFqXf5x5bNWLaYvfzG4oOoH9z4ReAfteLJK0ip1ycIIPpyn2293vxYX1
9mCFVifgy68IXnvVi9xrE8VOgXeBpUDOl76lF5VH37FkcroA/5Pwruvtvfip
5LTxopQLnLzyjTeT1IshMHRBW8cFtH7FVGoN9OLB6MWSe09cIFhq88+r6V7M
8FYz1l1xAerCIjeeHX34hve1sg3JFX4VnrE/fboPLew0dqqmuIGBhbbcPek+
tHw0M2Nc7wbF++zoimT70MBYIyj2sxs8sElIllPsQ+nvv0r9ed1hx2GGcaVL
fcgvSVfC8doddj+auKRzqw8VgiDQMcYDDqoESTi87sNLPOcUWfIfgPty8nb2
mz6UYU1e4B58AEOvq9p+JPXh7WpaE/2tBxC7tnbL9UMfUstu2igreQJPimmi
Z0EfToVcGBfq9gRBeqn9QaQ+/BssqaK1+RBkSBOrKVT9SP7i46BQ4AUHTh39
kLO7H0fGNCLUmr1gNdz6Ril9P8IwhbXFqBdkGCw2dezrx1SfJUvyLm/gIW/F
rXH2o1T6kfAxbW+gXjygrnymH9Ofcvbs++ENXQyar8ct+/Fwn94pemVfyLIP
1Zm91Y9915odfl/1haDOHpoVu34cyKFN2uHoCyrh15yo7/Zjj/jHG4axvlDI
ceuc6KN+DLXTvAxrvhAn9HjZI6Ifv7hByUTmY7BVK1Zha+zH5OLE7FuS/qDa
s5pi2tKP32wyjvRc8gc+E3GGjPZ+dHQ472Ri6w8D9952KfX2oz5NrMJ4oj8o
vw+5cWeyH48dibrksf8JcFHfdG/d6sf48oQ2jc0n0FlDn+EjMYCeR2Yiwr8E
QNolVaZ2yQE0ti1Tek4dCP7DXnfZpQfwqbq/7UeBQJBb+Xk2GwZQ0VP8h51V
IKTyketHNQaQK6EG6+cCwcf7E1nacgCb/F7Xiv5+BpJoxLIYPYAJJSZ5cmdC
4JlXpfHOuAGci//Pec/VEJis4k9lTRjA8IoEHeoHIfBCeY6Qez+AMlbXj9yp
DoF59XtWAbkDaGfBLnNC+zkk6oUW87cOYL2fyjjIvgAmmzoTgz8DKP+rbm+/
YyhYpR1Ps90xiLHDHLJLj0Oh/Nuznw93DaLo/OsXPFGhYOegE/iOdhBN+2n4
GqpCocF5PPcH6yD+OmRMEmMJg4ePflMHiw3iGM05E6+yMJgPF82oujGIdeyz
rT/4wiE8R9e1zmwQN1gv/fl4NhzkOt2xyWIQFX9XjwdqhUMIfT2p03YQua4w
iQc+DIeTPsZr4/cG8e73gyLVw+Hg5vAc/z4fxOIKqU8SMa+A8vwySaZyECPZ
W1O/iEVAhtWBGKgZxDUq8Vk29QjQ9yPMFesHUURqusz8ZgS8rwxYU2/952/F
mXE1MgLOS/FxXB0YxAtG9brpuyIh9Iiu+b2lQaz/5dzITI4Eru1Pa7k8Q9hv
Kxc3kh0Ndapdt3/zD2HK5z8pr0jRYBey+BmODaFMyjLJ9Uc0lHAKdTeJDuEY
9y2lHMkYMJCLzxqXGUI++RSW/SUxEOoeYE1/eQgf97UUp3TEAuWq0ZBZwBC+
GXpm/ZI9HtJk72unBA3h7ZId+AnjQcc3snHh+RCy7xfr2WUZD2+Yu/Pd/hvC
55OSPCdy44GQUHsZkjSErW33myeOvQFX+5MXisuGMEzRoJ6y6Q3MzlCX7/sx
hCaXM4eMuRKB4cuFw9w/h3CvTVzugVOJIDYV5iGyPoS3iHc4cy4RnEe5pM79
HcLqZ96jnXcSYUfXmewHdMM447JHvKY+EQ6WWCZ+5RtGvvkRP2WXJFANrvcv
0x3G2JG8EN/pt3ArkGG6WX8YHb6wldz68xaCnugoDVwdxmvBFXK2rO+gy3ts
+8eNYRxXZCurVHkHRq5rbsfthlH7ysbRovfvwPmGgO3Lx8MYaS72cdMxGZIk
/C/dyhvGbGcFnmz2FKg1qLlWWDiMymtaE2FSKfDl0Q5rmtJh5OYp/Rh9OQWO
t3t4vaseRov2j9KHwlIg08bh40THMOYdXl8ZZUiFwiSD/YZzw3jgTK5fAu0H
aGUV7j/PPYJ1pOYQR950WJCznoriG0Fb5bwyHeV02Gv+bnHm6AiyuDwTM7FK
B+0c7t1PREZwZ2Z7+p+MdOjTZDlbc3YEbywcpFMnMoD85E+0rN4IMntVRmmb
Z8Lq7w5jkYARJNGq3B+1yYbQvtM6SkEj+PHdab1xz2wQy41RMXw+gt0lz8V+
vcgGazsrkaevRlCF0f/irYJsGBn7+3sq4R/fay4qQ6qPUFsj+iqmeATXRMsU
H7/7COHBz1rovo1gkf1oUNGvHJCwWS7nXRzBTAMRyNqTC+2qV3Kkf/yLX379
Wjl/LuzewR9luT6C883TOoJauf/+sWLLaspRHDqabn/6Qy6YX5ml8OAcRfu3
D3vkb34CSd5z0rOao8jEb2G6PZsH/EMOH5a0R3F5yKB4bGc+ML+MPLyuN4pT
nITmEEc+LFHO7aC5Nooey0ffC2jmQ/pMUNMRq1EM5H79/sCnfODP7jI0eTSK
dK/6Mu75FQAzGnv2Z40ilf37VU4sAop1/8WxnH9Yezui7loRLGVnmX7JG0Ue
lfNVwW5F0M5HofqzZBQJtmdnvXKKIJD67d79jaPY/zelZ/lYMVC0z8Zrkkfx
ne4c+Th7CSxdd6muYxrDO3eqM9ZZy2AUX03uZRlDDsnPpk1ny6CZL2+nwYEx
/FxIe6LeqAzezawqznGO4WHz4RXl5DIwdHau2Ss8hhfupx0yOlsOdc/u1l5R
GcMJe5e249YVEF18p37WfQx/PlYsmVithCevQ7+c9BxDVyn5pWraqn/37Efq
B15j6Peaf7iMqwouqS6r7n0yhmWGFtoU6lVA2eXYcDJ8DCnY5rE6rgrsZx0a
72eOYaG6TIrapWpQOmjfvGdqDMfvRx/Tq6uB9Ox8EteXMTSI4p2lH6kBNvXt
AfHZMXTz16gb/VEDM+4vvmovjuHxU+9UOnlqIWg4h/K/zTG8p9+Zv+JZCz1x
v4CLZRydtdS0LxF1YH7UO1dMZRz/ui56SZPqoa2sqRjVxtGLz87Scb4ezugz
V2tpjOONfUp29VQNsPtJUqeT9ji+kIu/2SbT8K++dQv5RuOY+Vmo53xyA6ym
0R1H13H8/tVkiM+3EfxOhsdeej+Ol5QOraldboZvq93aiR/GUX4/uZTFtRn0
CvbT/Mz4xz+7fo02ohn45F7eif40jpcNR7/fHmyGSpUw1emqcYzQdaIRMmmB
LYMXSx4j4xjDRzEQ49IKRajK172bjPupbitNVrXDN54vDx7QkVFrd3fMiZl2
4Nnp33+UgYzDqZqpmXs74GltXZAbIxkXGz1IMtc7QF9d5RcnGxmJ1//NRP3u
gFUd5VZrfjIuzUdc74nrBHFLRde/BBknJcoCzdZIEJSnxPQGyUi+VjVqwNAF
M5QqHxQUyDjPQ0dvw9cFiUnnxh4rk1Hn5fS9Uc0uYJm4oEqvQUa8vynLkNoF
G9eusB00IONMbdWfZLNuqNW2y5dwIuMRgaLn9fM9wJtwW6v7LhlFT91aMKTq
hYdL9nPOLmTkpHsdupe7F6Se3+EqdCPjScVPqj06vfCh1dUfHpGRjvz59WhJ
Lzw/562vEUTGStKqPV14HxgS/62ZJ5OxXHXqyJzRADh/FX48956MzVUxabnu
A/A8tGqfYyoZp2VNJmNfDUDt9DeR++lkzL5QtdTeNgBiIUo3Q3PIeDV3LCQP
B2Hn+FJHWTkZ04p4z2cIDkGal0YqWz8Z1S/039Q9MAL1QhNnYgfIWDcvcfy6
1AiQe1xreYfIGPvhrnPAlRFgE0wcFxklo5D/Qw2dyBHwIq2zKk2RMXl2PDiB
YxT0+JJ9HBbJuMbP1nNNcAy2anZcb6SZQOKaX4iMBBnYdoVV2tNOYJYuiUNB
hQwnFPmPstJPYH7lxdsmV8lws1Llu+neCdyy9Omf9SZDc2mg1ybLBHI86hcW
7iFDZB7LOzG+CVwsWLDx9ZyACSJOnE1sAheO4vx17kn4H3X22f0=
        "]]},
      Annotation[#, "Charting`Private`Tag$50090#1"]& ]}, {}, {}}, {{}, {{}, 
     {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
      1.6], PointBox[{{0.477, 1.*^-6}, {0.495, 2.*^-6}, {0.505, 3.*^-6}, {
       0.512, 4.*^-6}, {0.518, 5.*^-6}, {0.523, 6.*^-6}, {0.527, 7.*^-6}, {
       0.53, 8.*^-6}, {0.533, 9.*^-6}, {0.536, 
       0.00001}}]}, {}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{433., Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 0.607}, {0., 8.641486921495483*^-6}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7850502606372604`*^9, 3.785050327862419*^9}},
 CellLabel->"Out[22]=",ExpressionUUID->"01ac67f3-fff9-46af-ac56-82811e434cac"]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVVnc4148Tt0qRkLIiIyurjGS974RklL0lK6EopMhKRRRCKSV7i2Rv2Xvz
sWeSor4iMhr69fvn7rnndc/d6/X6457jsb2ub09BRkbG+C/8Pwejf0em31ko
o3w1ubpQT5TGmAlbh/HjltvFa35b9UQlBc1xibCT+OQbvyQ7TQOhKGtbwBZ2
Bsdj5Z8GizUQf/Qff6cLM0L6CpcYqZsNhKU1H9OeMHu8yZnxboa6kaBzuH50
V9hNjJ/gbKJSaCK85elO2svewlJ/gwej2k3EZ7octeb5W6g8wlJWa9tENBUv
OAURXjjfH5bf9qiJ8KW4mL/rmzc6alBwtk40ERvaGUcojwXg4TzhxQd3mwn7
pegcyrAgfK9YUJgw2UIcXE6Nu7EYhFThVuxL6y1Ew2ph+Ae1B7h+QMFAh66V
4N7uu95IHoxMjoYZDtBKTFLTSd/3DEEDcB8bSG4l9PmDqinsQlHMpJE+16WN
4MqvXCCLj8QWZpVpafYOYkNCeaa8MxK/ncocWz3ZQfQUtY+4/ozErC+0Ol16
HYRv2WjbrEkUsv1U4R9/2EGMv9t4XXfgCYozVqxf+NVBPOuWvB4Q8hSR7Ljc
4flOgvbL682/N56jWsqwqm13N0FipbVKTHyO9XMM3mtL3USc2tUW6HyOBqQu
qpQ9PYR4isgzP94YZGvWiTBR7SF0zXIlf/XF4OX39/IEa3qI6NY3LhtiL5E5
ZZX/VnEvcSQt/8PXT69QhPGrvt5UH7HQz6AVxhSHSReGn+9b7iPe/nUtFME4
LP6i4DG600coWUjcvfI8Dqt3OxEp3P2E7YHCI59V43GI6cb430v9RGZAkdmH
5AT0uE75d3Wln3ghPvHp65skXCs+7CLCPEicGx5l0mlMQl/3zbYqoUGCzH8Y
C0aT8PnzvVIXFQYJx+7+mJuUyeidy+01Zj1IyDq3nd0xTcY4e+rSnNxBYjS7
JJOeKgVJ80wVPWdJBCt/pIOkeSrGBG2pRIYNEV1d4U+jr6fiEznB+qDkISLA
I7R2IzAVxUU+JEWUDhGfGx+wVL1NxcT4SyOzs0NEua1fq8quNJSOu6XrIzNM
mCZdETTKT8Nbo46SKR+HiZeHz3zy3J2Bqj/MejUMR4mOdn2615wZuNXas3vD
ZZT47WktNSmdgTcTLhvVBI8S1iSfO0p2Gf/43XwdXzVKCIUXsuyty0DJbysW
WXxjRPkOl3rs7Ux80Llz5++vMWL0/c+s6q9ZeF6052JI3QRBE7mnd5kyGzuW
mk/1T00QisD8g/twNvoIRG3K/pogkmIlTgdpZOOQgFSevcwk4WjgOHY+Ixsd
40WiTuVNEptNQ3tnrF5jJwu5y3jqFMGclX+FfDAH3WbCB+iyZgilXGH1zM85
yBZg+FKudYa4mp/Gf34nByNr7zEGLswQdeUvZl8cy0XjutDWygOzxJX2AOMT
AbloZGVO46A/S9Qu6Spbib1BgeNtouWkWcJRbJWtJjgPww5q6uV+fE88kbi6
aRufh7q/2iu1Nt8TNSc/kvYU5WG0faD/7z1zxAEYizCczkNBqgNmT0TniGrt
+l1fpd+i3SovEeUxRzC6Rq2yz71F4noH3RfqD4Tl2ItLign5GOlP0xOmOE8U
Tlvqbmbn4yvRiRl+/Xli9zyvYmFJPl78U7wz5DBP5C3nMgl15yO73e4Wn6fz
xF/K+gam3/l4Tf2m5OyXeSJZfJH7i1kBcrGORfMmfyQ+3pebenmoEL1iDxSq
HPlEyD/caTPkKcTixi+HV2Q+EY8fNxbTixWi0xbnRKnOJ0Lm5fmwINVCfPGH
uePp3U9EcJ6NgtuNQux5XBz4eOETcWzs4Uv1/kKk5YhMTSr5TLiIjxtthhWh
Og1tLrXTEiH8u9nP50URHmyzyCsKXCIW2gvS/6YW4WcNlre+SUvERfuHP6ir
inC3vTv/5dElQjtO9hnr4r9+QwmlWI0vhDhNDEnuTDHafBi6miLxlVj5aGDg
+6cY9QwqLJjYloncIvQh21uCz31r7sXJLhOOd0VSAw+WoGdaVLGa6TIxy0G5
FiZSgsmdGo07MctEv0Hhk3izEtQQ07UiZ/tGFNYzDLwrKcFdv+p6yhhWCI/4
bl3ya6Uod4Bb2EtglRB9ft2w1qsUVXepvZI/tUp8fMxo6ne/FAsDOF3o1FcJ
4wAjq+0XpZh66Yf7vNMqIWs35bLaWIpSF9Q6zfJWiV9C/z16z1aGvP3+FK7y
34l7xfua65vL8NxJpXt1VmuE/Ju8tjt9Zdgl46Hy1n2NWEvX7SImynDz2J/A
/KA14lJM9GDFShmyqbj1L+WsEWe8OeYKDpfjJzKfx0rba8QeJdG/yW7lGB7T
2BYQs05EdGrJ3eOswM2m/oCxuR/Eg9YfckLHKnBcN/gR7c8fhH9jonyPdAWa
ygYeM2bcIJyr1hTYz1UgfXdGxEmlDUIz5xUUelfg76y5Sa7EDWJ36BeVuZEK
zLenHK+w2SR8NUO1lZ9U4nLHJ2j6uUV4qJ3U+RxfibGC6U+JQ9vEVeUZncfZ
lWjUKLw5cHybMJeX0huvq0Q2iSQbfftt4pTwhIH7t0oss4ndl9m/TXzfK2KW
cq4KmaTlHBre/iQc2zvsKKirce4QlX78vd/EhRVhpTnGajx7uTq2P+E3ocsS
ytHAUY1jNEodPFW/iVP2WkN3JatRXljsHPP6b2I3eZca+cVqnK2X/aTv8IdI
le0+RlZSjRdSf0hIGewQ05m93/7Y1uD01ZrhN9xkMNBzvGvKpQZ9eeVPppwg
g5YfEVk1XjXIVYEXMpTI4I2Kro3f4394ppPytDUZ+M70DfyuqMGnbXJC+1PI
gI1loOQXwzt0dDI18hUkB8MHJJ/td+/wZLHsxV1IAfk3LaJT2t8hH2efeJku
BdDaz+Vqkd4hM7e6kLctBTSorEzFL77DBkfvUakHFHCCfJ+S8sFaPGI5TOnV
QwF0vipUoU61GD+Yc1XflhI+yJqp7aepw3Q9vsMdMVQQmR83YEtfhxoHhYIb
cqgAhGYvlh2sw0A2Wr2eWiqIZXHwtOaqwxSOZA3uz1Sgv+GRVShdh63izrNv
5XZBXVEkjYlVHQoHn/B4PLsL4sTbehKL6zDkdHH0IEENi5kRZo6VdXh+8Qy1
hjE1yPCYzJ+oq8MZfYVTo9eooZ9pYbu+sw65f7QqqCZRw+5tSv75uTqcFlkk
GVHtAddG9BFirMcvjT5PPPv3gKppmWCBSz3+GPLJ8wuggah+/8LbN+rx/gWt
ezZxNDCtqUYo365HzmPv39qW08BtYkh/MLAeHXXpomtWaCCPd83vx6t63OjQ
Why1pQXW/8RJch31GOy2y6f+3D74725GQINAA3pENHeD7H4oZ9DYFhRtwEZB
X4clo/0QmPjFLVyiASm/l/AW3dgP7DUn7EwVG9BrWcY17u1+UN+qPLOs14DT
M1IR/UL0kHatl4bdrwGpvt6ovs7AAOYWW9Fugw1IHkPpLH6QEQSWYulGRhuQ
z3CDc42PEVa9iAeK0w3I5R2p1naSEUKe3/OkXmzAlr/uimkmjFDSv888fqcB
+w/cvM8XxwgM6jxc7ccacXLj9qah0AFoldbM5g5oxCptptSv55lAstmV+2dQ
Iwpszm542TJBnFFMzGBoI4af+e/YYU8mcL81H/Qg5l8d+/NRchITHCn3t/2a
14h/WD51lK8zwS2FosPlU41I9qeGTyD5IPApczzWUWhCraqStCxaZogYUN51
7HQTSuh0LnEdZYaftk6+FGebULpXQiRfnhn67pdeKdFvwtT9Drs4rjCDT7Pu
2cNXmnBMd3Y/XwczDKgHkX160YSzOz916CJY4K7Osrv/RhMuGDU47RVjA25V
oRDF301oR5+8Y3KWDd7J2sb/JG/G71wpDA02bPCbZ7j1Fl0zFjrs51p8zgZe
6zUc1/macYafYHxAwQ7XXoa3WOk3I/tyxL5DM+xw4YMo++m8ZpwA3lGLPA74
NXL5+N+iZpQIc6Q37OKA2K4k1ZqKZvwh8TTm6hIHjJQcvC7X3IwHl19xbgtw
gn7I70aJyX/9icLxUcmcoCHW5cJL04JDDhP1Q3FHQMbzaj3l5RZcEesx0Tbm
BoO7AU0Xr7bgcOo9T7nL3OAa+qy1wrUF2c0/sUnf4obXibXd131a0HJb5ajp
c2440sY0PhHZgpULzGsXRrhhN1v196KqFvSI/OfgBR4YrtzHd4mxFWcoy559
deeFtSYewVrmVjwjN+G1EMgLDL0ywuwcrfjj5NrM6nNe0PxgfaJPoBWntQ38
iSpeeEdboqio2IrBWl1T2VRHIeOCpdFBh1Y85jd0bSH2KNzcefOgqboV61iI
ROchPpCkORvytKEV95Q+XHH7wgfLh2Yf2ra1ovchy5DH5PxwWexAOBmpFY/+
c5hOnB9ML9x6qvilFVeDpTSEQvhBsRKSitnacMN8Svu9kgBQ3eqtSLvVhtMu
7AXszYJQd9ex6oZvG9p3fA+UnxYEv3DyGuV7bXg3l+2Tx6YgbKRJ1c2GtyGL
aVmLnLAQfB6MaeFIb8OaLY991FFC0CVhPRg92IaVkhwzbXbH4Ol/K18DT7Rj
HTteqjgiAj377SdXTrZj96WU8dtyIrDnxFjnBYV2/FYQUGxoKAL+7vWvpdXa
kWL/p59mj0TAcTPKcd6iHVW0QwvSN0VAkVxqXiW4HWOCjQ+ZjYjCwsGbExTT
7bgdcyHnW444cMssdlz70I5lhyf+nugQBwsTy8rxz+3YdztINPKzOPS9PPOy
cK0dh6MUA7P4j0PVEWYT270deFAz11k1+ThECpUN1Et34ObKwVoenRMgr7jd
HhDagVeVC6YOm0rAQavVMuuoDpzb9cQv44oELN9dTFeK6UD357XfVP0kIKV1
7C5ZageeFxpPrEmRAFqDSrmAyg4cF9kISlqWgEknn+w7ix24FVHmjI8kwT/m
T4j/2U50XFp/5t8vBaaVP25dPN+JwxXM+nkLUiA59d8lMOjEK+NWxeu/pGCB
d1pp52In7ku06GoWkAadvHdbfrc68UiF3oaPnzRwN99x9EvvxMqcq1/OHz8J
9d/J1X0puzBATPOtQroM9N2mIynt7ULRtZ19ZDUyME3GZr2LvgtrBJwvTJFk
4Of+E16P2btQQl9F7gPVKZAUuZiVJNGFSgdLe45cPgUpdpV7mq26MJ9/dc5Z
TBbukdzb6aq7MG1G75JAnxxEWvgbDdR34bWFumHiixwkzD18/7y1C+9a8pW7
7ZaHypWkba7BLqQfPoPHCXn4vq/3mORSF1InK72mypUH2zMij4xZuzGwgqFU
KkIBVEo/aCZ6dOPHhzuud5wJ6NPvaCLz7saqsn1Pzj8k4MK3fLC90422PyQW
TmUQ4CHkL8n/qBv5P2o8t5klIC2WlT0nsRu9akx59hkD7L5zfrG0oxsVCLPY
YTWE9rNlwT3cPbjORtJ6kKgExvPx5CcEerCdw8+s660SzAUE+kSJ9CB7aZwR
b50S/KzQu24o04N9XQUmO7NKICz61XhcqwfN63IVvI6ehjAGHoGFWz041/ri
9t2c06Az9qjpT1cP3jnI0HyhTRm8PX8oDg70oPgfeTw/qQwZh6xLskZ78Gqv
3Lz+ijLs6J3MMJjvQSWJN3sSWFUgt2MmOPtXD14385eRuaICNNXSWkbCvajT
SKt9j1EVmhKm+3ODezH++cOO425nYEVRQ/NeeC+WpfPtWgs+AxwTRQ0mT3tx
22vYqSfhDNxgeVhEkdiLqmMnWXu6zgBvpNQz09JeJEbmptaOqcGduyGmVB97
MfX5FP3KZzXglHz5TYynD0sfXv7p6K0O32mreT8d7UP+NXnBnCfq0PJx2ihJ
oA93Kd69uCtHHVxf8lUfEO1D2/lWLYpJdWgiyw/ZlOlDmZOiDdyoAc69LTz1
5/pQNS3QYxeNJlQ6rxsYevXhf5lvcjiLtCBCjSWYzqcPezMjBKJ6tOASt3xl
i18fZq1ODHEtacF+0h1uuft9+Lo5nYjgOQc2CrT/cT7uw6MifiIVUedgDw3v
g0+pfThx81y6nud5MMnUKffu7UMbuWvLFqY6oCblKy8w0IctJW39vbd0QLo2
q7qf1Id9qvRaNs904MAIeb3QeB+6p9x0nxrQgZ7dxe3D832YJiA+myCoC6qX
WSckf/bhil323skMXZDkf/9nia8fr5o+zpcq0AOeArqA54L9qPzE7Ztdgx4w
EPIUysL9eJ6k+T5tUA+WDZ/ufnm8H53FSEfMNvQgO/AM/Vn5frxm6dQZpqgP
3PPZ3Kk6/bgnxs71eJc+7E91V7Hw7keCLcVjbMsAuo6/b1Ly60cewc6Dn+gM
IbRaR00goB/T84wXaI4awp5hUY3VoH6Mf3ra59l5Q6Dc+0k7OKofuTVCyCtS
DWHrmoV5UVY/XneR99E2NII5eVU32pF+FPV/fca61RiSWgu/r4z1I+Npdn27
GWOwMuTxGJ7sRyZls7w7m8Yw6bJzK3muH594HK6nEjKBkaRy31PL/Rh3teq0
yiMT6NotFmK3awBLAzLisw1MoWTgUGKV1AA2rDufev/TDCSX3GKuywxg4i/H
2WsHzSGfvCfiqNwAvvmSlHNI3BxyTzwICIUBbOappX1rYw4pjzdsLDQG8CfZ
Qi5ThzlEao7w/bo4gMsmPs8qEy3gasOL1/KPBrBz3fLMSStL+Dy2nrIcNoCn
zDb+svpawuVV3VcpEQPI1DTEx/bSEmy594bRPBtAG3ddzuuDlmDqf9tlPHEA
Z5bDpz00LoKavPkJ75IBdFGNzSJTsAKewsOlFbP/9BB6pTdireFaR8WbzA8D
GP5+xk8w1xqq50zSny0MYHetEP9yjTUYM0VHu30dwMZqX7vi99YQ5rHvxrGt
AVSS/G9EQNgGtmT+HH9JP4g3xSLflLyzgZ6q6WwvGETXl6cYGTZtgYPkm3z5
9CCmKufdVqe1A6ev7C8NVf/hOcJuz7nsgIrTJOSE5iBS3AGnG+p2IO/fe/mz
0SAyJHtRS7+yg3SluqOmLoM4+RJfzateAt/m5PhTcYN4x4HW9E22PcxHaMyz
JA7iMgXrklmdPWiZrwpvJQ+irHPBqSMj9sD+Tam8PHMQi63JnZapLkMZ6+yA
XNEgzpFo5t7aXIbvV4/sUewYxJXHMh7dXA7geOCVu9LWIPJLrkwKv3WEvknl
Cu5fg6iTELKHvN0RTmUu/SXbGcSNjQP4fc4RdivKh9dTknArxgAEWJwg1X4s
U5mehL9TbNJHApxgupxlSlWAhFI5/p63za6AkVX0WQ1DEq4XKUU94nYG3+Jj
u7aMSbjBbaf4V8EZUvbWNmSYkVD1ztXixybOsFy0SFBZkXCU++uNncfOELIH
pWudSPjtqzcT319nqC5Y5D55h4S0bHZKifMuwEeFP7lfkzDD7hc3c/N10DQj
lfXmknBoSfMQ2/x1cMtzuun/loSCL4MF48ld4Z1p9MpEMQl57FKovnK7gumb
xYXntSQMv+T632lrVwgzjh7cN0RCJkbPoon3rrCWtZi79ZeE6jXqP6RW3WBp
p87pPcUQ9t56uC5J5Q6zhi8EOnYN4cxzFwY1FnfoIjub9Ip2CKv7bNeyCHdI
M017CixDqKrWVmsX6g7Ge6y8A8WH0LD/d2id8A2odCCdZbAcQheVtKji2x6Q
X5NDtW01hPZz34RsIzwgg+l+/XvbIRQT6iwSSPeAp7USCkWOQ/iY1W/Xjz4P
cGaJEDf2GEIqrbCz2cduwpFWjUNxoUN4+7jIgQczN+GuQO2cYOUQ3mjlT2my
9AQZ6kDmmeohPLRHpHjCwxO+flLXfF47hH0v7GP2hnmCcfZAAVXzEMqk1Iu8
rvQEUdGFgPe9Q0j9ZmkPOZsXDEvQcb36OISz17ab2ca9QJiwsNjPOIw5XyKj
4695wwwnd0Qz0zDKaszKVod4Q/TOfIMv8zDezO7KXU/xhr+114S/HB7GoopX
TkUj3kBSvrfdKjCMRpu3qK8q+4C/enbMXcVhVK3Uzhnj8IVBg83BdYdhlBpy
y3Nd8IOUhWbjhCvDmHClxNGB0h/cb0ePnXUZxuR0fwlvbn9gSJSYiXUfRtZK
d4t1c384v3R1SclvGDupLzJAvz+0BsyShT8ZRke/L3rYeAeq3rSL8dcMozev
V9nsdAA8UnqR31P7b16XtonstwAwH7ws5dUwjL2NdZ2JfwNga4tSrrN1GD1k
J68ncN+Fk6qg6jYwjE0xv4wu2N2Ft+OF5jWfhvFIe7HB5y93IZU6LtjowAiq
7aWjL9x7H5Rf5e6VOzSCHDbaZSWc9+G9eE0oB+sIsrGRXemRuA9cxtMRHzhH
cKhE7Sya34dXadwv3I6NYGyUtz5P7n14ejo9K1xpBJkW/7v70yAQ7vvktTdf
G0Eh9ebvacVBwEtfq5XtNoLTGkPRtzqDoD6ltzvMYwTtNHmlreeC4G/7Sr+B
9wh2JV/r9WF4AD6sUuPvg0awcOPe6RGXB3CjpGzpT9wI3mF9W3BSLBjsvtXR
ynSOIJ9woJVWbQg00NVSfe4ewdHNzFeRIyHALVrz52XfCKYX66f/9y0EJh0r
vv0ZGkFNm2L/b9wPwXCuYLB5dgRZ9NYmDwY+BNWhlFdGGyMYJUcn/kv7EQhU
BYrc5BnFw5+pFOY2QyFw7B6fIN8oZlmsCOsyhcHcZgDnmMAobnffJR8TD4ME
aT96QnQUjzrLdilcDgPmvJtrVKdG8YAyfb36cBhQJ1+uij43+u+/D2iNqQqH
zw/UtYo9R5H1DE1L16sIYM4IUUnyHkXV8EEup5oIUG1uUwjzG8WU/37KHJuJ
gERKDdFL90dRgqwt9hFjJBgHaNAdjBhFb/p1fV3jSGi+rdl7I2MU/wi6lxh8
iIQU53MGUkOjOCy890cL7RPoCw3T4hodRQE3xQubR57AzusuFdqJUfRVIhNR
lHwCZovnpD/MjqKjJrsxpdkTYLh8/tDTr6OYz9l79lHmE7hjpT3ynXIM5W3/
0D9WfwoX9HUtCiXHUFFac5zuVTRo/PbrcD45hvbve0fuvY0GmYwcOUHZMRyn
f8i3rykaGH7uZo0jxpCtUPe3xX/R0JhcQwpSH8Od1yXT35WegfCqsLbZxTHU
5U3wo//6DLYidp0mezSGDdftZl/ox8BHOan8yrAx3M3NeqnOKQYGPlhz3YwY
ww/Lj+Z3AmIg91T1n8XoMczMozlV/zYGrGbcKwcTx/DhCE2m5f4X0CI+K5VZ
MoZ1TFZHafpewLPuSgHt92N4adF+Ycw+FuKOfZ//+WEMj2tkyIbeiYWUoGOp
mQv/9M3cDzN6GQv5xAsu8q9jWNEcEnuyOxa63txkLd4Yw5cltH/5ZV4BxeMT
NOz7xtFB817R1L44cNXO+O+jzDh++O3Gd6EnHjxfT+U8kRtH9wmq1xe/xIP/
7kNXUPEfXlN+1W9PAoS9u7/w4vQ4XnZ/xMigkgCZ4jYzWufGUc7043JYRQJM
7+foL7AZR4bOo4/+5CTCud6oYr+wcZTSuWfbMJgEvKK07pcixrH80+rig49J
sB0SeFzryTgi5VHpi5tJkKHs+Zr1xTiauh+2PnM4GchLLyQVpY7jGwE5tS27
ZCiNEwxbrBxHqvA4eortZOC6UmNntDiOyQ93pGUlU2GjRYZH8es4wqEyFj+1
VOg6mj/N++0f/sHYZsQ8FbynUsxW1sdROqftftf9VCDphuiEkk1gsDFbYNVw
KoScMlCoZ5lAdQfFsrqANPhOtXhATG0Cj+nlHqNfSIeQrzpn59QnsKXvNFXq
r3Q4Qir1idGawLnPBTznGDNAIzVwnlxvAgcLKG5PK2ZA0mnu0mGLCVyqOri4
61kGnPc3MQtwm8CXLqej3DUyIWuzOXEwbgInjMh8LRuzAGZESSGJEyj5WGC+
cSILBlue7oGUCWwK5TBRXs+CnWc2blmZE8hzVa86mD8bjKT/KPsVTmAk2Xfu
Uw+zgcJNekGg7d/+0TsPCaPXYLmUIuq9NoEKGusPYshyoWFAy9ppYwI7PLcl
7xzJBaGq9aem2xO4HDXS80AxF76Hqv2S+fuPr3P+xQ2vXAgRW2pfo5lE0pmB
FPO1XCh2lXBw4Z3EYa5LxsbLb4BmszbZWm8SnWMcqFh23oLrjOOQjuEkOoUy
dnEz5MNQK+NeNJlEPksrQ3WefEh6YefKaTmJV3l0rvWo5IOMPDWOO07ilxzR
5fKH+WDjpz1pEDCJD5daXrCyFUA55RTz2beTmFse+/GJWiHIJkS8FCqcxGuH
SziqzQqhTFaZg6ZkEjdd069sOxdCqUsmT3flJM59skzMf1oIRSNuogYtk//u
gU0t01wh5OXsVraamkSjLqqa2ntFkGZwwsWTdgqbRk/c1yQVA9/y3DfT/VPI
ETXIwbNUDKkhz9zlGadQy2Hu1X6yEkip+en5h3kKq/bZvRYXLYFEweZ793mn
0Kr7/NugoBKI/WX2IkJuCkvGKmbSFEshMvV+Y6bDFE5JWt80qymDnrajNSZX
plD9MfW1SFIZ0C03llK7TGG8I7JPfymDR7JUrx3cp/BQpPJCDXs5BHYHRgr6
TeHFypDaqNvl4LkZZJn5ZApBgtokQaECLmqFbGbUTKGZgXnVcn8lxLkKrRrX
TeFnx3tjQl8rYeJZ29LuximkdDaI991dBaaze6Yvt01haIG5t5tCFejffNgk
MDiFtwQ1tZ9mVIFa4qOojM9T6NQ70N99txrE1sJEMpimkeZQDN/IuXegyHad
L5J5GtNNvWDb+R1ooh6nN9s0uhSxORPh7+By6CF6ba5pPE+t91S05x0kHE34
/kN4Gu8Vftn/Wq8WGAzfVpxRnsaud+0Hko/XwXpx/9mPrtM4v9Eitq1ZDxQT
RUq9N6Zxy6JnU8eyHhjIn8tV3JrGXt006crr9SB23lwk3Pcfnz49s/boerj8
cW7/yZBp9LOPfUaaqYeRQ+tDgYnTyJpw1LzgdgM4Jp2zZyiaRmbaXAc18kb4
H8b79Lo=
        "]]},
      Annotation[#, "Charting`Private`Tag$10056#1"]& ]}, {}, {}}, {{}, {{}, 
     {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
      1.6], PointBox[{{0.477, 1.*^-6}, {0.495, 2.*^-6}, {0.505, 3.*^-6}, {
       0.512, 4.*^-6}, {0.518, 5.*^-6}, {0.523, 6.*^-6}, {0.527, 7.*^-6}, {
       0.53, 8.*^-6}, {0.533, 9.*^-6}, {0.536, 
       0.00001}}]}, {}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{443., Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 0.536}, {0., 2.2655702286445785`*^-6}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Input",
 CellChangeTimes->{{3.7849520740773716`*^9, 3.7849520788300104`*^9}, 
   3.7850502233933673`*^9},ExpressionUUID->"90dd2bef-ec51-4b11-a778-\
e3814a633b94"],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"A", ",", "B"}], "]"}]], "Input",
 CellChangeTimes->{{3.784952647521821*^9, 3.7849526539239116`*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"fc81b2c8-81ce-460c-99fc-c2330b672f3f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"A", "==", "Is"}], ",", 
       RowBox[{"B", "==", 
        RowBox[{
         RowBox[{"q", "/", "k"}], "/", "T"}]}]}], "}"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"A", "\[Rule]", "3.256377288470037`*^-11"}], ",", 
       RowBox[{"B", "\[Rule]", "23.243872518708976`"}], ",", 
       RowBox[{"T", "\[Rule]", 
        RowBox[{"19.4", "+", "273.15"}]}], ",", 
       RowBox[{"q", "\[Rule]", 
        RowBox[{"1.6", "*", 
         RowBox[{"10", "^", 
          RowBox[{"-", "19"}]}]}]}]}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"Is", ",", "k"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.78495208064207*^9, 3.7849521927980366`*^9}, {
  3.784952481053651*^9, 3.784952485297592*^9}, {3.7849525344576807`*^9, 
  3.7849525448350773`*^9}, {3.7849526407077637`*^9, 3.784952642883094*^9}, {
  3.784953433694351*^9, 3.7849534406409206`*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"773af768-1f5a-4201-953b-8916ce4d1cd7"],

Cell[BoxData[
 TemplateBox[{
  "Solve","ratnz",
   "\"Solve \:65e0\:6cd5\:6c42\:89e3\:5177\:6709\:4e0d\:7cbe\:786e\:7cfb\:6570\
\:7684\:7cfb\:7edf. \:7b54\:6848\:662f\:901a\:8fc7\:6c42\:89e3\:76f8\:5e94\
\:7684\:7cbe\:786e\:7cfb\:7edf\:5e76\:4e14\:5c06\:7ed3\:679c\:6570\:503c\:5316\
\:5904\:7406\:5f97\:5230\:7684.\"",2,35,19,27771537014787986502,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.784952546023941*^9, 3.784952586409774*^9, 
  3.7849526577347*^9, 3.7849534417553473`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[35]:=",ExpressionUUID->"ce000e4b-71e5-43c3-a6a1-\
6cf219371b23"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Is", "\[Rule]", "3.256377288470037`*^-11"}], ",", 
    RowBox[{"k", "\[Rule]", "2.3529429393271653`*^-23"}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.7849525460322723`*^9, 3.784952586446743*^9, 
  3.784952657797903*^9, 3.7849534418001184`*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"2d91f381-6281-4e63-9667-185d65b044e0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dataT", "=", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "25", ",", "30.6", ",", "35", ",", "40", ",", "45", ",", "50", ",", "55", 
     ",", "67", ",", "70", ",", "75", ",", "80", ",", "87", ",", "90", ",", 
     "95", ",", "100", ",", "106", ",", "109"}], "}"}], "+", 
   "273.15"}]}]], "Input",
 CellChangeTimes->{{3.785048543666255*^9, 3.7850486036431932`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"3da6c33c-6d8b-4e60-895f-ebb03e95d528"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "298.15`", ",", "303.75`", ",", "308.15`", ",", "313.15`", ",", "318.15`", 
   ",", "323.15`", ",", "328.15`", ",", "340.15`", ",", "343.15`", ",", 
   "348.15`", ",", "353.15`", ",", "360.15`", ",", "363.15`", ",", "368.15`", 
   ",", "373.15`", ",", "379.15`", ",", "382.15`"}], "}"}]], "Output",
 CellChangeTimes->{3.7850486048856993`*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"bc37408c-3319-44da-a430-6827fe49a44f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dataV", "=", 
  RowBox[{"{", 
   RowBox[{
   "0.521", ",", "0.506", ",", "0.494", ",", "0.481", ",", "0.468", ",", 
    "0.455", ",", "0.442", ",", "0.409", ",", "0.402", ",", "0.388", ",", 
    "0.375", ",", "0.356", ",", "0.348", ",", "0.335", ",", "0.322", ",", 
    "0.306", ",", "0.299"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.785048609500037*^9, 3.7850486838638935`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"0b41b63e-ee6e-4348-839e-247322f96390"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.521`", ",", "0.506`", ",", "0.494`", ",", "0.481`", ",", "0.468`", ",", 
   "0.455`", ",", "0.442`", ",", "0.409`", ",", "0.402`", ",", "0.388`", ",", 
   "0.375`", ",", "0.356`", ",", "0.348`", ",", "0.335`", ",", "0.322`", ",", 
   "0.306`", ",", "0.299`"}], "}"}]], "Output",
 CellChangeTimes->{3.78504868497357*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"d8a803ec-22e7-434b-8f46-9a8d4f19ad54"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "b", "]"}]], "Input",
 CellChangeTimes->{{3.785060395092108*^9, 3.7850603977045403`*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"37e43639-56c4-4d49-ab9f-39a120ccb50f"],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"dataT", ",", "dataV"}], "}"}], "]"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<T/K\>\"", ",", "\"\<\!\(\*SubscriptBox[\(V\), \(F\)]\)/V\>\""}], 
       "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "kx"}], "+", "b"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"k", "\[Rule]", "0.0026521648896557517`"}], ",", 
        RowBox[{"b", "\[Rule]", "1.3116418046709277`"}]}], "}"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "250", ",", "390"}], "}"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.785048691776328*^9, 3.785048755135833*^9}, {
  3.7850601286879635`*^9, 3.785060187518098*^9}, {3.785060370300147*^9, 
  3.7850604333340244`*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"aad20c13-947b-4af1-9a29-8439b407b409"],

Cell[BoxData[
 RowBox[{"\t", 
  GraphicsBox[{{{}, {{}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6], 
       PointBox[{{298.15, 0.521}, {303.75, 0.506}, {308.15, 0.494}, {313.15, 
        0.481}, {318.15, 0.468}, {323.15, 0.455}, {328.15, 0.442}, {340.15, 
        0.409}, {343.15, 0.402}, {348.15, 0.388}, {353.15, 0.375}, {360.15, 
        0.356}, {363.15, 0.348}, {368.15, 0.335}, {373.15, 0.322}, {379.15, 
        0.306}, {382.15, 0.299}}]}, {}}, {}, {}, {}, {}}, {{}, {}, {}}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{
     FormBox["\"T/K\"", TraditionalForm], 
     FormBox[
     "\"\\!\\(\\*SubscriptBox[\\(V\\), \\(F\\)]\\)/V\"", TraditionalForm]},
   AxesOrigin->{296.8375, 0.28789999999999993`},
   DisplayFunction->Identity,
   Frame->{{False, False}, {False, False}},
   FrameLabel->{{None, None}, {None, None}},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImagePadding->All,
   Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotRange->{{298.15, 382.15}, {0.299, 0.521}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Automatic, Automatic}]}]], "Input",
 CellChangeTimes->{{3.7850634433439913`*^9, 
  3.7850634433859887`*^9}},ExpressionUUID->"d65fe7b3-0308-4df9-ae4f-\
f9b8071301f1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindFit", "[", 
  RowBox[{
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"dataT", ",", "dataV"}], "}"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "k"}], "*", "t"}], "+", "b"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "b"}], "}"}], ",", "t"}], "]"}]], "Input",
 CellChangeTimes->{{3.7850487619439316`*^9, 3.785048765473792*^9}, {
  3.7850488161010785`*^9, 3.7850488462965827`*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"7e0fb8d4-d151-4000-8cb2-cb811ad6ed11"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"k", "\[Rule]", "0.0026521648896557517`"}], ",", 
   RowBox[{"b", "\[Rule]", "1.3116418046709277`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.785048848615016*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"c46176e4-5853-4cba-8bfa-1ce722e55dc2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"q", "=", 
  RowBox[{"1.6", "*", 
   RowBox[{"10", "^", 
    RowBox[{"-", "19"}]}]}]}]], "Input",
 CellChangeTimes->{{3.785060569474453*^9, 3.785060606476389*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"b0cbf255-bb63-4a6d-8500-458779ae14d7"],

Cell[BoxData["1.6000000000000002`*^-19"], "Output",
 CellChangeTimes->{{3.785060578159528*^9, 3.785060607608653*^9}},
 CellLabel->"Out[28]=",ExpressionUUID->"d72f4ec5-dce5-412a-9f29-f6c18eb0acdf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["q"], "Input",
 CellChangeTimes->{3.7850605977722855`*^9},
 CellLabel->"In[27]:=",ExpressionUUID->"a7d2a8b0-28a4-4657-bd4c-281ab301b365"],

Cell[BoxData[
 RowBox[{"-", "3.`"}]], "Output",
 CellChangeTimes->{3.7850605986432357`*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"dcf6f236-d084-461e-b63d-84db376534a1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"q", "*", "1.3"}]], "Input",
 CellChangeTimes->{{3.7850606151581144`*^9, 3.7850606209418945`*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"6365c49c-c217-4047-b7cf-e21144bcb3fc"],

Cell[BoxData["2.0800000000000002`*^-19"], "Output",
 CellChangeTimes->{3.7850606261982136`*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"957d22db-ec1a-4690-b68d-da3ba3c1c0f9"]
}, Open  ]],

Cell[BoxData[""], "WolframAlphaShortInput",
 CellChangeTimes->{{3.785064596569431*^9, 
  3.7850645977322836`*^9}},ExpressionUUID->"1401a522-2d99-4492-a517-\
47b2a3b326b8"],

Cell[CellGroupData[{

Cell["Energy Gap", "WolframAlphaLong",
 CellChangeTimes->{{3.7850646043765235`*^9, 3.7850646109215283`*^9}, {
  3.7850646519974*^9, 3.785064665228031*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"277601b7-3d91-4c75-8314-7dcb8fae8117"],

Cell[BoxData[
 NamespaceBox["WolframAlphaQueryResults",
  DynamicModuleBox[{Typeset`q$$ = "Energy Gap", Typeset`opts$$ = {
   AppearanceElements -> {
     "Warnings", "Assumptions", "Brand", "Pods", "PodMenus", "Unsuccessful", 
      "Sources"}, Asynchronous -> All, 
    TimeConstraint -> {20, Automatic, Automatic, Automatic}, 
    Method -> {
     "Formats" -> {"cell", "minput", "msound", "dataformats"}, "Server" -> 
      "http://api.wolframalpha.com/v1/"}}, Typeset`elements$$ = {
   "Warnings", "Assumptions", "Brand", "Pods", "PodMenus", "Unsuccessful", 
    "Sources"}, Typeset`pod1$$ = XMLElement[
   "pod", {"title" -> "Input interpretation", "scanner" -> "Identity", "id" -> 
     "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["minput", {}, {"QuantityVariable[\"Energy\"]"}], 
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            TagBox[
             FormBox[
              TemplateBox[{
                TemplateBox[{
                  TagBox["\"energy\"", Identity], "\"  \""}, "RowDefault"], 
                StyleBox[
                 
                 RowBox[{
                  "\"(\"", "\[NoBreak]", "\"physical quantity\"", 
                   "\[NoBreak]", "\")\""}], {
                  GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100},
                   LineIndent -> 0}]}, "RowDefault"], TraditionalForm], 
             PolynomialForm[#, TraditionalOrder -> False]& ], 
            TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement["dataformats", {}, {"plaintext,minput"}]}], 
     XMLElement["expressiontypes", {"count" -> "1"}, {"\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}]}], 
   Typeset`pod2$$ = XMLElement[
   "pod", {"title" -> "Common symbol", "scanner" -> "PhysicalQuantity", "id" -> 
     "CommonSymbol", "position" -> "200", "error" -> "false", "numsubpods" -> 
     "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox["E", TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,computabledata,formatteddata,formuladata"}]}], 
     XMLElement["expressiontypes", {"count" -> "1"}, {"\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}]}], 
   Typeset`pod3$$ = XMLElement[
   "pod", {"title" -> "Basic dimensions", "scanner" -> "PhysicalQuantity", 
     "id" -> "BasicDimensions", "position" -> "300", "error" -> "false", 
     "numsubpods" -> "1", "primary" -> "true"}, {
     XMLElement["subpod", {"title" -> "", "primary" -> "true"}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            TagBox[
             RowBox[{"\"[mass]\"", " ", 
               
               TemplateBox[{"\"[length]\"", "2"}, "Superscript", SyntaxForm -> 
                SuperscriptBox], " ", 
               TemplateBox[{"\"[time]\"", 
                 RowBox[{"-", "2"}]}, "Superscript", SyntaxForm -> 
                SuperscriptBox]}], HoldForm], TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,computabledata,formatteddata,formuladata"}]}], 
     XMLElement["expressiontypes", {"count" -> "1"}, {"\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}]}], 
   Typeset`pod4$$ = XMLElement[
   "pod", {"title" -> "Standard unit for energy", "scanner" -> 
     "PhysicalQuantity", "id" -> "StandardUnitsForPhysicalQuantity", 
     "position" -> "400", "error" -> "false", "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            StyleBox[
             RowBox[{
               TagBox[
                RowBox[{
                  StyleBox[
                  "\"J\"", FontFamily -> "Helvetica", FontSize -> Smaller]}], 
                Identity], "  ", 
               StyleBox[
                
                RowBox[{
                 "\"(\"", "\[NoBreak]", "\"joule\"", "\[NoBreak]", 
                  "\")\""}], {FontFamily -> "Helvetica", FontSize -> Smaller, 
                 GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                 LineIndent -> 0}]}], 
             LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, 
             ZeroWidthTimes -> False], TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,computabledata,formatteddata,numberdata,quantitydata"}]}], 
     XMLElement["expressiontypes", {"count" -> "1"}, {"\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}]}], 
   Typeset`pod5$$ = XMLElement[
   "pod", {"title" -> "Usage type", "scanner" -> "PhysicalQuantity", "id" -> 
     "PQUsageType", "position" -> "500", "error" -> "false", "numsubpods" -> 
     "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox["\"scalar\"", TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {"plaintext,computabledata,formatteddata"}]}], 
     XMLElement["expressiontypes", {"count" -> "1"}, {"\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}]}], 
   Typeset`pod6$$ = XMLElement[
   "pod", {"title" -> "Common subcases", "scanner" -> "PhysicalQuantity", 
     "id" -> "PQItoPQ", "position" -> "600", "error" -> "false", "numsubpods" -> 
     "5"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            TagBox["\"acoustic energy\"", Identity], TraditionalForm]], 
          "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {"plaintext,computabledata,formatteddata"}]}], 
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            TagBox["\"atomic binding energy\"", Identity], TraditionalForm]], 
          "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {"plaintext,computabledata,formatteddata"}]}], 
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            TagBox["\"atomic energy\"", Identity], TraditionalForm]], 
          "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {"plaintext,computabledata,formatteddata"}]}], 
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            TagBox["\"bandgap energy\"", Identity], TraditionalForm]], 
          "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {"plaintext,computabledata,formatteddata"}]}], 
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            TagBox["\"binding energy\"", Identity], TraditionalForm]], 
          "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {"plaintext,computabledata,formatteddata"}]}], 
     XMLElement["expressiontypes", {"count" -> "5"}, {"\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}], 
     XMLElement["states", {"count" -> "1"}, {
       XMLElement[
       "state", {"name" -> "More", "input" -> "PQItoPQ__More"}, {}]}]}], 
   Typeset`aux1$$ = {True, False, {False}, True}, Typeset`aux2$$ = {
   True, False, {False}, True}, Typeset`aux3$$ = {True, False, {False}, True},
    Typeset`aux4$$ = {True, False, {False}, True}, Typeset`aux5$$ = {
   True, False, {False}, True}, Typeset`aux6$$ = {
   True, False, {False, False, False, False, False}, True}, 
   Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = {
    XMLElement["assumptions", {"count" -> "1"}, {
      XMLElement[
      "assumption", {
       "type" -> "Clash", "word" -> "energy", "template" -> 
        "Assuming \"${word}\" is ${desc1}. Use as ${desc2} instead", "count" -> 
        "5"}, {
        XMLElement[
        "value", {
         "name" -> "PhysicalQuantity", "desc" -> "a physical quantity", 
          "input" -> "*C.energy-_*PhysicalQuantity-"}, {}], 
        XMLElement[
        "value", {
         "name" -> "ExamplePage", "desc" -> "a general topic", "input" -> 
          "*C.energy-_*ExamplePage-"}, {}], 
        XMLElement[
        "value", {
         "name" -> "Formula", "desc" -> "a formula", "input" -> 
          "*C.energy-_*Formula-"}, {}], 
        XMLElement[
        "value", {
         "name" -> "MathWorld", "desc" -> 
          " referring to a mathematical definition", "input" -> 
          "*C.energy-_*MathWorld-"}, {}], 
        XMLElement[
        "value", {
         "name" -> "Word", "desc" -> "a word", "input" -> 
          "*C.energy-_*Word-"}, {}]}]}], 
    XMLElement["warnings", {"count" -> "1"}, {
      XMLElement[
      "reinterpret", {
       "text" -> "Using closest Wolfram|Alpha interpretation:", "new" -> 
        "energy", "score" -> "0.42814285714285716", "level" -> 
        "medium"}, {}]}]}, Typeset`initdone$$ = False, Typeset`queryinfo$$ = {
   "success" -> "true", "error" -> "false", "numpods" -> "6", "datatypes" -> 
    "PhysicalQuantity", "timedout" -> "", "timedoutpods" -> "", "timing" -> 
    "2.701", "parsetiming" -> "0.259", "parsetimedout" -> "false", 
    "recalculate" -> "", "id" -> 
    "MSP690813fc72e02eeh3g8800003ih2g33ia68ace2g", "host" -> 
    "https://www4f.wolframalpha.com", "server" -> "12", "related" -> "", 
    "version" -> "2.6"}, Typeset`sessioninfo$$ = {
   "TimeZone" -> 8., 
    "Date" -> {2019, 12, 11, 22, 51, 14.8802304`8.925184606692055}, "Line" -> 
    32, "SessionID" -> 27771830531085993284}, Typeset`showpods$$ = {1, 2, 3, 
   4, 5, 6}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = {}, 
   Typeset`open$$ = False, Typeset`newq$$ = "Energy Gap"}, 
   DynamicBox[ToBoxes[
     AlphaIntegration`FormatAlphaResults[
      Dynamic[{
       1, {Typeset`pod1$$, Typeset`pod2$$, Typeset`pod3$$, Typeset`pod4$$, 
         Typeset`pod5$$, Typeset`pod6$$}, {
        Typeset`aux1$$, Typeset`aux2$$, Typeset`aux3$$, Typeset`aux4$$, 
         Typeset`aux5$$, Typeset`aux6$$}, Typeset`chosen$$, Typeset`open$$, 
        Typeset`elements$$, Typeset`q$$, Typeset`opts$$, Typeset`nonpods$$, 
        Typeset`queryinfo$$, Typeset`sessioninfo$$, Typeset`showpods$$, 
        Typeset`failedpods$$, Typeset`newq$$}]], StandardForm],
    ImageSizeCache->{1204., {319., 325.}},
    TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}],
   DynamicModuleValues:>{},
   Initialization:>If[
     Not[Typeset`initdone$$], Null; WolframAlphaClient`Private`doAsyncUpdates[
       Hold[{
        Typeset`pod1$$, Typeset`pod2$$, Typeset`pod3$$, Typeset`pod4$$, 
         Typeset`pod5$$, Typeset`pod6$$}], Typeset`asyncpods$$, 
       Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; 
     Typeset`initdone$$ = True],
   SynchronousInitialization->False],
  BaseStyle->{Deployed -> True},
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True]], "Print", "WolframAlphaFullOutput",
 CellChangeTimes->{
  3.78506467490221*^9},ExpressionUUID->"7563bec6-fbbe-4fc8-b48d-be1f78947a5d"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1280, 637},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
CellContext->Notebook,
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 207, 3, 96, "Title",ExpressionUUID->"4ddec02e-8924-49fa-94d4-ddc7d8254bd3"],
Cell[790, 27, 230, 4, 45, "Input",ExpressionUUID->"95247572-4dae-43ac-b79a-71b72e271f7e"],
Cell[CellGroupData[{
Cell[1045, 35, 398, 10, 45, "Input",ExpressionUUID->"5c4d7718-857d-4cc1-9aac-3cf9e90718de"],
Cell[1446, 47, 596, 15, 55, "Output",ExpressionUUID->"a86f4bba-a61d-40e2-a5d1-80d0a18e287d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2079, 67, 378, 8, 28, "Input",ExpressionUUID->"346c0d5e-58a5-45ee-9a7c-fd24fc33ff72"],
Cell[2460, 77, 383, 8, 32, "Output",ExpressionUUID->"0e16b2b4-1062-4394-a9ff-7a2ec18ec14e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2880, 90, 454, 12, 45, "Input",ExpressionUUID->"ee94b2f2-9299-446d-8867-7567a91a3bbe"],
Cell[3337, 104, 1450, 37, 239, "Output",ExpressionUUID->"245a01de-aa29-4b21-95bb-0c0ef5310718"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4824, 146, 332, 7, 45, "Input",ExpressionUUID->"a92585ea-cd63-467e-8833-245ade4810a1"],
Cell[5159, 155, 1179, 35, 100, "Output",ExpressionUUID->"a9dd38ef-f7e2-4a88-b3b4-552779b3f9f0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6375, 195, 650, 13, 45, "Input",ExpressionUUID->"fd2ebc42-926e-47ea-a21a-30fd46a44331"],
Cell[7028, 210, 632, 13, 24, "Message",ExpressionUUID->"8ca38172-38c8-4aaa-bd8b-e190fed14c3d"],
Cell[7663, 225, 511, 10, 36, "Output",ExpressionUUID->"bdbfbb9f-6a33-4286-9add-d629ad05c196"]
}, Open  ]],
Cell[8189, 238, 152, 3, 28, "Input",ExpressionUUID->"8001c534-75d8-425a-8500-2b41631da32c"],
Cell[CellGroupData[{
Cell[8366, 245, 1127, 23, 45, "Input",ExpressionUUID->"c7869a61-9e1a-41bd-9d54-4aa702b8f138"],
Cell[9496, 270, 12771, 226, 223, "Output",ExpressionUUID->"18862dd6-2d22-4a8f-adbd-6a554cb569aa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22304, 501, 771, 16, 48, "Input",ExpressionUUID->"574cbff6-0270-4268-bccf-82a520f0965a"],
Cell[23078, 519, 1845, 47, 240, "Output",ExpressionUUID->"ee17cab8-0712-4be2-b8d2-ad782ee2ed7b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24960, 571, 259, 6, 45, "Input",ExpressionUUID->"11868ebe-8779-486b-a725-27e8a7360767"],
Cell[25222, 579, 12884, 228, 267, "Output",ExpressionUUID->"01ac67f3-fff9-46af-ac56-82811e434cac"]
}, Open  ]],
Cell[38121, 810, 13032, 232, 265, "Input",ExpressionUUID->"90dd2bef-ec51-4b11-a778-e3814a633b94"],
Cell[51156, 1044, 228, 4, 45, "Input",ExpressionUUID->"fc81b2c8-81ce-460c-99fc-c2330b672f3f"],
Cell[CellGroupData[{
Cell[51409, 1052, 1086, 27, 45, "Input",ExpressionUUID->"773af768-1f5a-4201-953b-8916ce4d1cd7"],
Cell[52498, 1081, 617, 12, 24, "Message",ExpressionUUID->"ce000e4b-71e5-43c3-a6a1-6cf219371b23"],
Cell[53118, 1095, 402, 9, 36, "Output",ExpressionUUID->"2d91f381-6281-4e63-9667-185d65b044e0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53557, 1109, 469, 10, 28, "Input",ExpressionUUID->"3da6c33c-6d8b-4e60-895f-ebb03e95d528"],
Cell[54029, 1121, 462, 8, 32, "Output",ExpressionUUID->"bc37408c-3319-44da-a430-6827fe49a44f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54528, 1134, 483, 9, 28, "Input",ExpressionUUID->"0b41b63e-ee6e-4348-839e-247322f96390"],
Cell[55014, 1145, 442, 8, 32, "Output",ExpressionUUID->"d8a803ec-22e7-434b-8f46-9a8d4f19ad54"]
}, Open  ]],
Cell[55471, 1156, 205, 3, 45, "Input",ExpressionUUID->"37e43639-56c4-4d49-ab9f-39a120ccb50f"],
Cell[55679, 1161, 1020, 27, 45, "Input",ExpressionUUID->"aad20c13-947b-4af1-9a29-8439b407b409"],
Cell[56702, 1190, 1792, 44, 76, InheritFromParent,ExpressionUUID->"d65fe7b3-0308-4df9-ae4f-f9b8071301f1"],
Cell[CellGroupData[{
Cell[58519, 1238, 517, 13, 45, "Input",ExpressionUUID->"7e0fb8d4-d151-4000-8cb2-cb811ad6ed11"],
Cell[59039, 1253, 292, 6, 32, "Output",ExpressionUUID->"c46176e4-5853-4cba-8bfa-1ce722e55dc2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59368, 1264, 265, 6, 28, "Input",ExpressionUUID->"b0cbf255-bb63-4a6d-8500-458779ae14d7"],
Cell[59636, 1272, 196, 2, 32, "Output",ExpressionUUID->"d72f4ec5-dce5-412a-9f29-f6c18eb0acdf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59869, 1279, 150, 2, 28, "Input",ExpressionUUID->"a7d2a8b0-28a4-4657-bd4c-281ab301b365"],
Cell[60022, 1283, 170, 3, 32, "Output",ExpressionUUID->"dcf6f236-d084-461e-b63d-84db376534a1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60229, 1291, 200, 3, 28, "Input",ExpressionUUID->"6365c49c-c217-4047-b7cf-e21144bcb3fc"],
Cell[60432, 1296, 174, 2, 32, "Output",ExpressionUUID->"957d22db-ec1a-4690-b68d-da3ba3c1c0f9"]
}, Open  ]],
Cell[60621, 1301, 171, 3, 29, "WolframAlphaShortInput",ExpressionUUID->"1401a522-2d99-4492-a517-47b2a3b326b8"],
Cell[CellGroupData[{
Cell[60817, 1308, 234, 3, 44, "WolframAlphaLong",ExpressionUUID->"277601b7-3d91-4c75-8314-7dcb8fae8117"],
Cell[61054, 1313, 22409, 441, 654, "Print",ExpressionUUID->"7563bec6-fbbe-4fc8-b48d-be1f78947a5d"]
}, Open  ]]
}, Open  ]]
}
]
*)

